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2. IMPRIMANTES ,, 
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graphique, courrier, couleur, laser... 

3. TABLE TRAÇANTE 
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multiplume... fU 
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Carte RAM, Graphique 80B - Carte 80 
colonnes MZ 700 - Interfaces 
CENTRONICS - Réseau de micros 
scolaires - Maintenance... 
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Rubans, papiers, disquettes... 

Manuels BASIC, CPM, DOS, DBASE... 
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Gestion de production. “[) 
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Les solutions 
existent chez 
BECY! 

Consultez-nous ... 


Un CHOIX de PRIX, 
c'est BECY! 


COUPON REPONSE à retourner à BECY avec timbre à 2,20 F 

_ ffl s 


Je désire recevoir la documentation sur L® 


Je commande le logiciel EXPER 700 ci-joint un chèque de 30 Francs. 
Nom Adresse 


Signature : 


Code Postal I i i I I I ville 
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connaissances acquises. Elle implique éga* 
lement une collaboration étroite entre les dif- 
férents partenaires, parties prenantes de 
cette nouvelle pédagogie. 


La journée EDUCATIQUE 85 a démontré, 
s'il en était encore besoin, l'énorme poten- 
tiel d'avenir que représente l'ordinateur de 
poche dans la vie quotidienne du professeur 
et de l'élève. Sa portabilité, son faible coût, 
ses possibilités de calculs scientifiques sou- 
vent supérieures à celles des ordinateurs de 
table, font du « PORTEPUCE » un outil péda- 
gogique de base au même titre que le tableau 
noir ou le cahier de cours. L'utilisation ration- 
nelle de ce nouvel outil crée un besoin crois- 
sant d'informations et de mise à jour des 


CRITERIUM SHARPENTIERS 


Les règles en sont très simples mais 
peuvent rapporter gros aux SHARPEN- 
TIERS courageux : 

1. Tout Sharpentier dont l'article, le 
programme ou l'astuce aura été publié 
dans le bulletin SHARPENTIER sera 
d'office inscrit au club, gratuitement, 
pour une nouvelle année. 

2. A la parution de chaque bulletin, 
une main innocente tirera au sort l'un 
de ces auteurs qui gagnera ainsi l'un 
des plus récents produits SHARP. 

Le tirage au sort du bulletin n° 13 a 
désigné M. A. OZANNE pour ses nom- 
breuses réalisations sur PC-1 500 et 
PC-1401, il gagne ainsi un PC-1 421. 
Pour le n° 14 il y a un PC-1450 à 
gagner. 

A vos plumes. 


Au Club des Sharpentiers, ce type de coo- 
pération est maintenant entré dans une 
phase très active. A l'image des nombreu- 
ses pages ENSEIGNEMENT de ce bulletin, 
nous nous efforçons de présenter toutes 
intiatives, expériences ou réalisations créées 
autour de nos produits micro-informatiques, 
dans des domaines aussi variés que 
possible. 

Cette rubrique est essentiellement écrite par 
des enseignants, pour des enseignants ; 
c'est pourquoi, comptant beaucoup sur 
votre active participation nous avons mis au 
point, sur le modèle du critérium sharpen- 
tiers, le CRITERIUM ENSEIGNEMENT qui 
permettra à tout auteur d'être abonné gra- 
tuitement pour une nouvelle année au Club 
et de gagner, éventuellement, l'un des der- 
niers produits SHARP. Nous serons égale- 
ment très attentifs à tous vos conseils, sug- 
gestions et propositons ; ils seront une aide 
essentielle dans notre volonté de créer un 
véritable partenariat actif. 

L'arrivée des « POCKETS » ouvre une nou- 
velle page de l'histoire de l'enseignement. 
Une autre page, celle des vacances, appar- 
tient, malheureusement, déjà à l'histoire. 
Alors... Bonne rentrée. 
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La dernière née des machines à écrire porta- 
bles électroniques de chez SHARP à ROUE 
D'IMPRESSION 

Grâce à sa roue d'écriture de 98 caractères, 
la PA 3260, l'une des plus petites portables du 
marché actuel, offre toutes les qualités d'im- 
pression d'une machine à écrire de bureau. 
Un écran cristaux liquides de 1 6 caractères per- 
met le contrôle du texte frappé avant son 
impression. 

La correction automatique sur papier est 
illimitée. 

Ses fonctions spécifiques : 

• Alinéa automatique 

• Centrage automatique 

• Soulignement automatique 

• Caractères renforcés 

• Tabulation simple et décimale 

• Justification à la marge droite 

La PA 3260 est une machine à écrire mais 
aussi... à calculer. 

Cette machine fonctionne sur le secteur et par 
batterie rechargeable CdNi d'une autonomie de 
20 000 caractères environ. 



Prenez 1/3 de PC 1401, ajoutez 2/3 de 
PC 1350, mélangez délicatement et laissez 
mijoter le tout quelques jours dans les bureaux 
d'études de SHARP et vous obtenez... un 
PC 1450. 

Sa taille est celle du PC 1 350, son design, celui 
du PC 1401. De ces deux produits il tire les 
avantages. Du 1401, il prend le mode calcul 
et les nombreuses fonctions scientifiques et 
statistiques. Du 1350, il empreinte la 
RS 232 TTL et devient le premier micro- 
ordinateur de poche scientifique communi- 
quant. Il utilise également le système de 
mémoire par cartes, offrant un choix plus 
étendu de cartes : 2, 4, 8 ou 16 Ko. C'est du 
côté du concept mémoire que nous vient la 
véritable nouveauté. Il n'y a plus de mémoire 


Un autre avantage : cette petite machine se 
connecte directement sur un ordinateur par 
interface RS 232 C. 

Plus petite qu'une attaché-case (367 x 307 x 
59 mm) et très légère (3,2 Kg), cette machine 
vous accompagnera lors de vos déplacements. 


vive dans la machine ; tous les programmes 
sont logés sur cartes, c'est pourquoi tout 
PC 1450 est livré d'office avec une carte 
mémoire 4 Ko. 

Le PC 1 450, c'est le véritable outil évolutif du 
scientifique. 


La PA 3260 est idéale pour les mémoires, les 
rapports et les courriers traditionnels. 


TAILLE: 72x182x16 mm 
POIDS: 175 g 

AFFICHEUR : 1 ligne de 16 caractères 
CAPACITE MEMOIRE : 2, 4, 8 ou 16 Ko. 
MEMOIRE UTILISATEUR : 3070 octets avec 
carte 4 Ko. ((carte - 1) x 1024-2) 



■ 0 - 





Ce ne sont pas réellement des nouveautés, 
mais ces machines n'ont jamais été présentées 
complètement dans notre bulletin. Or, en cette 
période de rentrée des classes, il est utile que 
leurs principales caractéristiques vous soient 
rappelées. Les 4 machines présentées sont pro- 
posées dans le cadre de la campagne enseigne- 
ment et représentent un éventail assez com- 
plet de l'ensemble des possibilités que l'on peut 
attendre d'une calculatrice scientifique. 




même affichage que la EL 506 P. Dans un 
volume très réduit, c'est la plus puissante des 
calculatrices de poche. 


0 . 509 * 


Caractéristiques très voisines de la EL 509 A, 
possède 2 fonctions scientifiques 
supplémentaires. 


0. 506 9 


Calculatrice scientifique et statistique équipée 
de 32 fonctions et d'un afficheur 8 chiffres per- 
mettant l'affichage scientifique sur 5+2 chif- 
fres. Machine scientifique de base, elle ne con- 
naît pas les calculs hyperboliques et les con- 
versions polaires. 


Calculatrice scientifique et statistique program- 
mable sur 1 28 pas, en programmation linéaire. 
Elle possède 9 mémoires, 61 fonctions et le 


Calculatrice scientifique et statistique possé- 
dant 56 fonctions scientifiques, un afficheur 
10 chiffres permettant l'affichage scientifique 
sur 8 + 2 chiffres. C'est également l'outil idéal 
pour le programmeur car elle possède les fonc- 
tions de changement de bases (binaire, octal, 
héxadécimal et décimal). 



Fini les fils qui traînent partout, les magnéto- 
phones délicats. Le berceau imprimante- 
interface cassette pour les PC scientifiques est 
arrivé. Conçu pour s'adapter parfaitement aux 
PC 1401, 1402, 1421 et 1430, ce berceau for- 
mera, avec votre PC, un ensemble compact et 
facilement transportable. Le CE 129 P est 
équipé d'une imprimante thermique 24 carac- 
tères/ligne sur papier de 54mm et d'une inter- 
face cassette (micro, écouteur, télécom- 
mande). Le PC qui s'y insère prend une posi- 
tion légèrement inclinée pour faciliter l'utilisa- 
tion de son clavier. 



Les affaires club sont essentiellement constituées 
de matériels, accessoires ou périphériques qui ne 
sont pas (ou plus) commercialisés par le réseau de 
revendeurs SHARP. Comme vous pouvez le cons- 
tater, leurs prix sont très attractifs. Une précision, 
toutefois, seules, les « Affaires club » sont com- 
mercialisées par le club, à l'exclusion de tous 
autres matériels normalement distribués par les 
points de ventes SHARP. 



SHARP MZ 720 
+ BASIC SHARP 
+ SUPER BASIC 
+ EDIFORTH 

+ 10 LOGICIELS DE JEUX 
1 290 F 


SFD 

Unité de disquettes 5 POUCES 1/4 connectable directe- 
ment sur MZ 700. Capacité de stockage : 320 Koctets for- 
matés. Livrée avec DISC BASIC, programmes utilitaires et 
manuel. 

a wo ï 




PC 1500 

CE 155 Module mémoire 8 Ko. 250 F 

CE 153 Table à digitaliser. Extension de 
140 touches sensitives au clavier 
du PC 1500 550 F 

QCN* Connecteur mâle 60 broches permettant 

l'accès au bus du microprocesseur 215 F 

PC 1251 


MZ 80 A 
AEU 

Panier d'extentions pour cartes 



disquettes et imprimantes 

500 F 

AFI 

Cartes interface disquettes 

600 F 

AMD 

Master disquette 

150 F 

AD02 

FDOS avec notice très détaillé pour 



programmer en assembleur sous disquettes 

600 F 


MZ80B 


CE 12 A 

Micro-cassette et manuel (en Anglais) 



traitant de 19 programmes orientés 
STATISTIQUES 

120F 

CE 12 B 

Micro-cassette et manuel 



traitant de 20 programmes orientés 
CALCULS ELECTRONIQUES 

120 F 

CE 12 C 

Micro-cassette et manuel traitant de 



20 programmes orientés MATHEMATIQUES 

120 F 

PC 1211 

CE 122 

Interface imprimante 

490 F 


EU Panier d'extentions pour cartes graphiques 



imprimantes et disquettes 

600 F 

MZ 80 K 

T41 

Langage PASCAL (cassette + notice) 

200 F 

TW 

Assembleur (cassette et notice) 

200 F 

TOUS MZ 80 

MZ 80 FDA1 

Lecteur de disquettes 5 pouces 1/4 

2 200 F 

MZ 80 FDA2 

pour MZ 80 K, A ou B 
Double lecteur de disquettes 5 p. 

3 200 F 


6 





BON DE COMMANDE 


Je passe commande de : 




REF. 

QUANT. 

DESIGNATION 

P.U 

TTC 

P.TOTAL 

TTC 

I 

l 




1 TOTAL TTC 



NOM ... . 
ADRESSE . 


PRENOM 


I 

I 

.1 


Ci-joint mon règlement de F, par chèque bancaire ou C.C.P. établi à l'ordre du SHARP 1 

BUROTYPE MACHINES*. Il représente le montant total TTC de ma commande. Je prends H 
bonne note qu'au cas ou ma commande ne pourraît être honorée dans la limite des stocks H 
disponibles, je serai intégralement remboursé du montant des articles non livrés. “ 


DATE SIGNATURE 

* Pour le connecteur QCN, règlement à l'ordre du « Club des Sharpentiers ». 


1 
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TECHNICAL REFERENCE 
MANUAL MZ 800 

Nouvelle exclusivité du Club, ce manuel 
aborde en détails la gestion de tous les péri- 
phériques internes et externes au MZ : Cla- 
vier, disquettes, Q.D., mémoire vidéo, cou- 
leurs, joysticks, générateur de sons, impri- 
mantes, magnétophone, etc. Il fournit un lis- 
ting commenté des 2 moniteurs en ROM, une 
description des circuits internes et une liste 
détaillée des commandes du Z80. Bref... un 
ouvrage de référence pour qui veut utiliser à 
fond les nombreuses ressources du MZ 800. 




M 

ADRESSE 


vous prie de bien vouloir lui faire parvenir 

□ Recueil(s) des n° 1 à 5 des bulletins SHARPENTIERS 
au prix de 110 F. (port compris) 

Bulletin(s) SHARPENTIER n° 6 U, 7 □, 8 □, 9 □. 10 □ 
au prix de 20 F chacun 

□ Bulletin(s) SHARPENTIER n° 11 □, 12 □, 13 □ 
au prix de 25 F chacun 

□ Manuel(s) Langage Machine PC 1500 
au prix de 180 F l'un 

□ Manuel(s) Langage Machine PC 1251 
au prix de 180 F l'un 

□ Manuel de référence MZ800 
au prix de 240 F l'un 

Ci-joint un chèque de francs. 

Date 



MANUELS I.M 
PC 1500 PC 1251 


Signature 


HHHHF 



Ces trois manuels, en Anglais, très bien documentés, sont des ouvra- 
ges de référence et n'abordent pas l'initiation au langage machine. 
Ils sont disponibles directement au Club, le mercredi après-midi 
(exclusivement), au prix de 1 70 F (MZ800 : 230 F) l'un ; ou par cor- 
respondance au prix de 180 F (MZ800 : 240 F) (port compris). 


Le manuel LM PC 1251 s'applique également à la série PC 14XX, 
aux PC 1260, et au PC 1350. 



MEFIANCE... 

Un important vol de pockets PC 1 261 et d'in- 
terfaces CE 1 25 a été commis en région pari- 
sienne. Soyez très vigilent s'il vous est proposé 
l'un de ces produits, surtout s'il ne peut pas 
vous être fourni de facture ou si le numéro de 
série a été falsifié ou effacé. Au besoin? con- 
tactez le Club. 

LE COURRIER 

Un gros problème dans la gestion de notre cour- 
rier a provoqué de nombreuses perturbations 
et un retard important dans les réponses aux 
différentes demandes concernant les MZ 700 


et 80K. Ce retard devrait, à la parution de ce 
bulletin, être totalement comblé. Cependant, 
si votre demande, datant de plus d'un mois 
était, à ce jour, restée sans réponse, veuillez 
nous le faire Savoir, nous ferons en sorte de 
vous donner immédiatement satisfaction. Tou- 
tes nos excuses pour ce contretemps qui ne 
devrait plus se reproduire à l'avenir. 

SKOfi 

BOUTIQUE 85 


Le SICOB BOUTIQUE déménage. Il se tiendra, 
cette année, au palais des congrès de la porte 
MAILLOT. Nous y serons, bien sûr, présents 


au stand T93, niveau 1 . Venez nous voir nom- 
breux, vous découvrirez les derniers logiciels 
implantés sur PC et MZ ainsi que les dernières 
réalisations et créations du Club. SHARP sera 
également présent au SICOB professionnel qui 
conserve sa traditionnelle implantation au 
palais du CNIT. 

SICOB CNIT LA DEFENSE du 1 8/9 au 27/09/85 
SICOB BOUTIQUE Palais des CONGRES du 
23/9 au 28/09/85 

L'entrée au SICOB BOUTIQUE est gratuite. 



Exclusivement réservées aux particuliers pour la vente ou la 
recherche de matériel d'occasion, votre annonce devra nous par- 
venir 1 mois avant la parution du bulletin. 

Elle devra impérativement utiliser l'original ou une photocopie 
de ia grille ci-dessous (5 lignes de 40 caractères), à raison d'une 


club 


case par caractère ou espace. Elle mentionnera, en cas de vente, 
le type exact de l'appareil, la date d'achat, le prix de vente ainsi 
que vos coordonnées complètes. 

Le Club se réserve le droit de refuser toute annonce ne répon- 
dant pas aux critères ci-dessus. 



Ci-joint le texte de mon annonce à paraître dans le prochain bulletin, accompagné de son règlement 
(80 F) à l'ordre du club des SHARPENTIERS. 


Vends PC 1 500 83 8K + 
CE-150 + MICRO K7 + LM 
+ prgs. TBE. Le tout 
3 500 F. 

Alain RAPAPORT - La Bou- 
dinière - 42330 St-Galmier 
(77) 54.13.52 


Vds PC 1211 (1981) + 
revues du club : 900 F. 

S. MONFORIES SP 7489 
BONN - ALLEMAGNE. 
Recherche progs. astrolo- 
gie sur PC 1350 avec carte 
16K + CE 516 P. 


Vends MZ 80 A 83. 2 800 F 
avec manuels et logiciels. 
Peut être vendu avec 
panier extensions interface 
disquettes et disquettes. 
Monsieur DIDELOT 
(1) 871.20.43 ou contacter le 
club. 
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arnienressais^iont actijielte meTtt en rours, 
arltconcltjants, vous pourez venir voijs- 
irogi ammer ce mastodonte sur Isi stand 
SHARPENTERS du SICOB BOUTIQUE où il 
effectuera éa première sortje. Dans notre p ’o- 
chain numéro. nous vous présenterons un 
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nous contacter, nous mettions volontiars on 
jeuvre nos moyens techniques 5t notre expé- 
ience au s é rv i q e d e vos idëes.1 f - 
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La matrice finale sera donc : 


10-2x0 = x + 0 + 3z 
-5x0 = 4x + y + 6z 
12 - 8 x 0 = 7x + 0 4- 9z 






Casd'une autre poutre, avec; 4 barres, donc 5 
noeuds. 

Ensuite, il faut résoudre le système. 

II. TYPES DE LIAISON, 

ENTREE DES DONNEES 

Sur le schéma numéro 1 , le nœud numéro 1 
représente un encadrement. Dans ce cas V et 
a sont nuis. On trouvera alors T et M. 

Le nœud numéro 2 est une liaison appui sim- 
ple. Dans ce cas V seul est nul. On trouvera 
T et a. 

Le nœud numéro 8 est sur appui élastique. On 
introduira le cœfficient de raideur k. 

T = kV. On trouvera T, V et a. 

Les autres nœuds sont libres ; en 3 on intro- 
duit un moment seul ; en 7 une force seule ; 
en 4,5,6 ni moment ni force. On trouvera a et 
V. 

Résumé : Classification 
Type 0 : Libre : introduire Force, moment. 
Type 1 : Appui simple : introduire moment. 
Type 2 : Elastique : introduire K, moment 
Type 3 : Encastrement. 

III. DONNEES RELATIVES A CHAQUE 
ELEMENT 

Chaque type de nœud étant désigné, il faut 
alors introduire les données relatives à chaque 
élément : longueur, module d'élasticité, 
moment quadratique. 

Puis charges réparties ? (ici sur l'élément (4,5) 
on introduira par exemple -7N/mm). 

|Çe problème sera repris par la suite] 


IV. TRAITEMENT 

Si l'on procède comme ce qui a été vu anté- 
rieurement, on se retrouvera avec des incon- 
nues dans 1 côté de l'équation matricielle et 
d'autres inconnues dans l'autre. Il faut donc 
classer les inconnues. 

Prenons l'exemple suivant : 

I xx + 2xy + 3xz = 10 
4xx + 5xy + 6xz = 11 
7xx + 8xy + 9xz = 12 
ou 

10 1 2 3 x 

11 = 4 5 6 y 

12 7 8 9 z 

Dans ce cas, il suffit de triangulariser la matrice 
et de ramener ce système à 

A a B 7 x 

B = 0 S M y 

C 0 0 E 

et résoudre pr z, y et enfin x. 

Or, nous sommes dans le cas ou nous aurons : 

10 1 2 3 x 

y = 4 5 6 0 

12 789 z 

II faut donc transposer y de l'autre côté de 
l'égalité. Dans ce cas général, on aura la valeur 
0 pour y correspondant ; Pour la liaison 2 on 
aura -ky comme effort pour un déplacement de 

y 

10 = x + 2 x 0 + 3z 
y = 4x + 5 x 0 + 6z 
12 = 7x + 8 x 0 + 9z 


d'où 

10 1 0 3 x 

0 ■= 4 1 6 y 

12 7 0 8 z 

11 suffit de mettre zéro dans la colonne de même 
indice que la ligne modifiée puis de mettre 1 
sur le terme diagonal. 

Cas de l'appui élastique 

10 1 2 3 x 

-ky 4 5 6 y 

12 7 8 9 z 

10 = x + 2y + 3z 

-ky = 4x + 5y + 6z 

12 = 7x + 8y = 9z 

10 = x + 2y + 3z 

0 = 4x + (5 + k) + 6z 

12 = 7x + 8y + 9z 

11 suffit d'ajouter simplement le cœfficient k sur 
la diagonale correspondante. 

V. RESOLUTION : TRIANGULATION 

Traitons l'exemple suivant : 

10 1 2 3 z 

11 = 4 5 6 y 

12 7 8 9 z 

Afin de traiter ce système ; je rentre les noms 
des inconnues dans une matrice colonne de 3 
éléments. D$ (0) = « x » ; D$ (1) = « y » ; D$ 
(2) = « z » ; et le système dans une seule 
matrice B (3,2). ATTENTION, la numérotation 
commence à 0. 

1 2 3 10 
B (3,2) = 4 5 6 11 

7 8 9 12 

RESOLUTION : je garde la première ligne. A la 
place du 4 de la deuxième ligne, il faut faire 
apparaître un 0 en soustrayant 4 fois le pre- 
mier terme. 

1 2 3 10 

0-3-6-29 = B (i,j) 

7 8 9 12 

Ensuite, il faut faire apparaître un 0 à la place 
du 7 [si on avait eu déjà un 0 ; on passe à la 
deuxième colonne directement (où à la suite)]. 
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FOR U J + TOR 

Le calcul se fait sur tou :e la ligne p^r une troi- 
sièrjie toucle FpIT ( = J ’O F Tl 
Lamatiiceostalôrï dia gon, Wst e. ll f au r aie frs 

r é sultats de ns - a- co l onn e [ -L 


LF) == wAiw, 




lier terme 


H Lorsque l'on a un afapuj élastique, on obtient. 
e n pl us de a et V. la valeur ce l'tffojt suiTap- 
pui (on met '[V. dans D $ r uis ensuite rV'1). 


lonldultro^rf^r ^ °^' ir 



2 e moment 


Données 


Encastrement 


App. élastique 


App. simple 



Matrice carrée 
(R*R) 


Inertie E(young) 
Long Q chap. 



I(i) Eli) 

L(i) Q(i) 


STRS K 



Les résultats s'inscrivent dans cette colonne. F 

Les 2 e colonnes de B(R,V) sont ensuite utilisées 
sous la forme 

F V I 
M a 


VII T, Mf J flèbhe 


Flèche ¥ V[(i)+,a|i) x(i)+T|) xfi) 3 


Cespremie s résuit ats ^tant doinén, or utilise 
les Jeux prê rfïïé[es coldijines B(i,, ï) et B(i, Ti ppur 
mètre, en <:fïa<|uë iiœüjd T, Vif ,V,a. Ensuitejon 





T=T(ip-xîi 




: (i x(i 2 -è(i)x(i) 4 
61 124 



ici en 3, on a T(3) , Mf(3), V(3), a(3) 
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Fléché 



UNITES : Tout en N et mm 

- Nombre de nœuds 

- Nœud numéro 1 

- Nœud numéro 2 


POUTRE A N NOEUDS 
Fl = 1000.000001 
Ml = 399999.9997 
V2 = -1.4480603 
@2 = - 5.4302261 24E-03 


Demande à x = 200 


Demande à x = 300 


• Force -1000 

• Moment 0 

- Tronçon 1 «Longueur 400 

• Module E 2 E5 

• Moment quadratique tx(35a4) 

• Charges réparties N / 64 

T, MF, FLECHE 
T = 1000.000001 
MF = 199999.9995 
FL = - 4.5251 88436E-01 
' T - 1000.000001 
MF = 9999.9994 
FL = -0.916350658 



Nombre de nœuds : 5 


1 — 3 

2 — 0 


Force 0 

Moment -40 000 

k = 2 000 N/mm 

Force = 0 
Moment = 0 


Fl = -76.0080642 
Ml = 12190.86022 
V2 = -3.681 1 1 5592E-03 
@2 = -7.995631 71 9E-05 
F3 = 14.51612903 
V3 = -7.25806451 5E-03 
@3 - 2.083333324E-06 
V4 - — 4.41 028226E-03 
@4 = 4.974798386E-05 
F5 = 861.4919356 
M5 = -39690.86022 


l(i) = 100 mm 
Ei = 2 E 5 N/mm 2 
Ti = 100 000 mm 4 


Demande à X = 250 


T, MF, Flèche 
T = -61.49193517 
MF - -9532.930182 
FL = - 6.42998 151 4E-03 


4Â 





: v ft v CLE A R : PRINT 
- POUTRE A n NOEUDS* 
— * s INPUT “NOMBRE 
DE NOEUDS M î 2: Y=Z-1 
: F=2Z: R=F-1 
: S=F+1 : Ü=S+1 : V=U+1 : 

DI N B(R- V).Hî(R') 

:FQR 1=0 TO Y:m= 2*:N= 
N+i: PAUSE “NOEUD NU 
«ERO (“ + STRS ( 1+1 )+ 
“•)“: INPUT “TYPE DE 
LIAISON “îC 
HP 0=3 THEN INPIJT “P 
ÜRCE " ï B(M j F) , “NOME 
NT *îB<Nj F) : D$(!>i) = “V 
“:D£(S)=“3* 

:IF C=0 THEN LET 3(M« 
S)=B(M> F) : B(N» S)=B(N 
j F) 

! IF C=: THEN INPUT “M 
OMEnT “ ) B(n, F) : Dî(N) 
= “F“ : Ds(N)<=“8* : 3 <n> S 
)=3(N,F> 

: IF 0=2 THEN INPUT “0 


K 


;t:d$<n>= 

>=*3 W :3<M 


Q; 

18: 


Ub F 

STRS T : Iis (N 
> S ) =T 

: IF 0=3 THEN LET B SOI 
)=“F“:Ds(N)=“M“ 

: N EXT I 

: FOR P=8 TO Y— 1 : 

PAUSE “TRONÇON NUMER 
Q(“« S T S£ (P+l >*">“: 
INPUT “LONGUEUR “ j i_ 
j "MODULE ELAS. “?E 
INPUT “MOMENT QUAD 


12: I=2P: K=2EJ/L: H=3K/Ls 
G=2H/L: M=l+i : N=I+2: 0 
= 1+3 

1 3 : B ( M j U > =L : B ( I * U > = J : 3 ( 

I » V > =E : 3 ( R » U ) =3 ( R > U > 
+L ï 3 < I » I }=3( I » I >+G s B 
(IiMI^Baji-O+H 
1 4 : B ( I > N ) =-G : 3 ( I » 0 ) =H : B 
< M » ci ) =B < M » M ) +2K : B (M » 

N >=-H : B ( N , 0 > =K : 3 ( N » N 
)=B(NjN)+G 

15:3<n>0)=3(n,0)-H:B<0» 
0)=3(0» Û)+2;<: INPUT . 

“Charges reparties ?' 

“»As: IF AS=“N“ 

T +1 E N G U T 0 1 S 
16: InPUT “VALEUR Q 
“îw:B<I>F)=B(I*F)+WL 
/2:B(M,F)=3 (m,fuull 
/12 


1 ? : 3(n » F ) =B ( N » F)+ul/2 : 3 
(0*F)=BC0.F)-ULL/12: 
s<n* v>=-ui 


ISîNEXT P 

19: FOR 1=0 TO 2Y: FOR J 
= 1 + 1 TO R : 3 < J > I > =3 ( I 
>J): NEXT J: HEXT I 
20: FOR 1=0 TO R: IF 'DSC 
I)=“V“ OR D$( I )=“3“ 
GOTO 24 

21 : IF Ds(I)="F* OR D$<I 
)=“M* GOTO 23 
22:B(I>I>=S(I,I>+'VAt_ < 
DS( D 1 : 3s( I ) = “V. " : 
GOTO 24 

23: FOR J=0 TO R:3<J»I)= 
0: NEXT J: 3(1 > I)=l 
24: NEXT I 

25: FOR J=0 TQ R-l: FOR 
I=J+1 TO R: IF 3( I » J 
)=0 GOTO 27 

26:Q=B(I? J>/3(J) J): FOR 
K=J TO F: 3< I > fO=S< I » 
!<)-Q*3( J> K) : NEXT K 
27: NEXT I: NEXT J 
28: FOR J=,R TO 1 STEP -1 
: IF 3( J) J)=0 BEEP 2 
: PRINT “EQUILIBRE I 
NDÏf FERENÏ" : END 
29 : B ( J > F ) =3 ( J ! F ) /3 ( J » J ) 
: FOR I=J-l TO 0 
STEF' -i 

3u : B ( i j J .) =3 ( I ! J ) *3 ( J j F ) 
: B ( I > F ) =3 ( I > F ) -3 ( I ? J 
): nEXT I: NEXT J:B< 
0> F)=3(0j F)/3(05 8) : 
BEEP 3 

3l:J=1.2: FOR 1=8 TO R: 
If üS(i) = “F“ ijR DS ( I 
> = “.V LET 3( I > F)=-B( 
I jF):3(Ij0>=3('IïF): 3 
(I»1>=0: GOTO 34 
32: IF fls<I)=“V. M THEN 
LET B ( I ! S )=-B( I » S) *B 
( I > F) : Ds( I ) = “V“ : 
PRINT “ F“+ STRS INT 
J+“ = “ î 3 ( I j S) 

33 : B ( I j 8 > =3 ( I » S ) : 3 ( I » 1 ) 
=3(1 jF) 

34: PRINT “ “>DS(I)+ 

STRS INT Jj“ = "53(1 
»F):J=J+,5: NEXT I 
35: FOR 1=2 TO R-2 STEP 
2 : J = I — 1 : S( I ! 0)=3"( I > 0 
) +3 ( I -2 " 0 > -3 ( J » V ) *B ( 
J» U) 

36:3(I+l>0)=3(I+l>0)+3( 
J » © > + < B ( J » V)*B( J»U>* 
B(J»U)/2)-(B(I-2»0>* 
B ( J » U ) ) : NEXT I 
37: “C“: PRINT “T » MF 
» FLECHE “ 


38: 1=0: INPUT “CALCUL A 
X = “?X: IF X>3(R; 

Ü) GOTO 38 

39:M=2l:N=M+i: IF X<=B( 
N» U) GOTO 41 
40:X=X-3 (NjU): 1 = 1 + 1 : 

' GOTO 39 


4 1 : G=B ( M » 0 ) -3 ( N > V ) X : H=B 
<N*0)-B(Mf 0)X+B<N»V) 
XX/2: Q=3 (M j U)*3(M> V) 
42: K=3(n j 1 )+B(N? 1 )X-B(N 
»0)XX/2Q+S(M» 0JXXX/6 
Q~B ( N » V ) XXXX/24Q 
43: PRINT “T = “; G: 
PRINT * MF = *5 H: 
PRINT » FL = *5 K: 
GOTO 38 




machiné; 


La fonction 
inv 0 = tg 0-0 (avec 
Elle est utilisée couram 
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Biographie : Traité théorique et pratique des 
engrenages par G. Henriot (Ounod éditeur). 


10ÔÛ0! * I “ : REM înyolute 
10010: CLEAR : CURSOR 26: 
PRINT ’lnvolute™ 
> Thêta 1 ': CLS 
10020: CALL 39423: INPIJT 
“ INV Thêta ? w î I : N 
=0: X=90: CLS : 
CURSOR 1 

10030: T=CN+X)/2: J= TAN T 
“ T * II 1 d 0 

10040: IF ABS (J-IX1E-9 
THEN 90+10000 
10050: 1F J > I THEN 70+100 
00 

10060: N=T: GOTO 30+10000 
10070: X=T : GOTO 30+10000 
1Ô090: BEEP 2: PAUSE BMS 
T: CURSOR 24: 

PR INT “De^res »mni s 

v 

10:00: END 



Ce n'esl pas à proprement parler 
un seul et unique programme. Il 
s'agirait plutôt d'un recueil de 
20 formules de physique. 

UTILISATION 

Une fois le pgm lancé par RUN, il vous propose 
un menu général : 

• Gravitation équations quant à la gravitation 
(sur n'importe quelle planète). 

• Chute solide équations relatives à la chute 
d'un solide 

• Lance Vertic équations relatives au jet ver- 
tical d'un solide. 

• Loi de Stevin 

• Loi d'Archimède 

• Jet d'un solide équations du jet d'un corps. 
Pour choisir un titre affiché, pressez une tou- 
che alphanumérique quelconque puis ENTER, 
sinon pressez uniquement ENTER. 

Chaque option renvoie à un sous-menu : 


* GRAVITATION ? 

* ATTRAC. S1/S2 ? 
attraction mutuelle de 2 sphères. 

* ACC. DE LA PES ? 

calcul de l'accélération de la pesanteur. 

* V. DE LIBER. ? 
vitesse de libération 

* SATELLITES 

rayon de l'orbite géostastionnaire. 

* CHUTE SOLIDE ? 

* TMPS DE CHUTE 
temps de chute. 

* V. FINALE CHUTE 
vitesse à l'arrivée au sol. 

* ALTITUDE 

calcul d'une altitude intermédiaire 

* VITESSE 

calcul d'une vitesse intermédiaire. 

* LANCE. VERTIC. ? 

* ALTI MAXI. ? 

altitude maximale atteinte par le corps. 

* TPS -) ALTI MAXI. ? 

temps mis pour atteindre cette altitude. 

* ALTI INTERNE. ? 

calcul d'une altitude intermédiaire. 



nv 

bar = 
densité 
pesanteijr 
volume 
Bien enti 




1340: 14=1310: GOTO ''(T 
1430: PR I NT ''TPS MIS POU 
R*: PR INT " ATTEINDR 
E ALTI . " : PR INT * M 
AXI." 

1*10: GOSUB "V" 

14-15 ï GOSUB "P" 

1420: T=V/G 
1450: PRINT T 
1440: [4=1410: GOTO "Q * 
1530: PRINT ''ALTITUDE IN 
TER- M : PRINT "MEDIA 
IRE." 

1510: GOSUB "V" 

1515: GOSUB "T" 

1520: GOSUB "P" 

1530: Y=C V*T}-<0. 5*G*<T rt 

2 )) 

1540: PRINT Y 
1550: 14=1510: GOTO "Q" 
1600: PRINT "VITESSE INT 
ER-" : PRINT "-MEDIA 
IRE:" 

1610: GOSUB "V" 

1615: GOSUB "P" 

1620: GOSUB "T" 

1630 s V1=V-(G*T) 

1640: PRINT VI 
1650:14=1610: GOTO "Q" 
1690: "JET SOLIDE 
1700: PRINT "EQUATION .. 
.".‘PRINT "CARTESIE 
NNE." 

1710: GOSUB "A" 

1720: GOSUB "P" 

1730: GOSUB "V" 

1740: INPUT "X :?*?X 
1750: Y=(X*(TAN AlO-aX* 
2>*<G/<2*(V A 2)*< ( 
COS A)rt2)))> 

1760: PRINT "Y:"5Y 
1770: 14=1750: GOTO "Q" 
1300: PRINT "CALCUL DE Y 
"SPRINT "Y=ÛRDONNE 
E" 

1810: GOSUB "A" 

1820: GOSUB "V" 

1830: GOSUB "P" 

1840: GOSUB "T" 

1850: Y=(V*SIN A>*T-<0.5 
*G*<T ft 2) ) 

1860: PRINT Y 
1370: (4=1810: GOTO "Q" 
1900: PRINT "ALTITUDE MA 
XI." 

1910: GOSUB "V" 

1920: GOSUB "P" 

1930: GOSUB "A" 

1 9 4 O : Y = ( V 2 ) * < < S I N A ) <■> 2 
) / ( 2* G ) 

1950: PRINT Y 

I960 : 14= 1 910: GOTU "U" 

2000: PR INT "TPS POUR .. 



,":PRINT " ATTEINDR 
E ALTI. "SPRINT "MA 
XI." 

2010: GOSUB "V" 

2020: GOSUB "A": GOSUB "P 

2038:T=CV*SIN A) /G 
2040: PRINT T 
2058:14=2010: GOTO "Q" 
2108: PRINT "TEMPS DE VO 


21 10: GOSUB "V" 

21 15: GOSUB "P" 

2120: GOSUB "A" 

2 1 30 : T =2* ( V#S I N A ) /G 
2140: PRINT T 
2150: i4=21 10: GOTO "Q" 
2200: PRINT " PORTEE" 
2210: GOSUB "V" 

2220: GOSUB "A" 

2230: GOSUB "P" 

2240 : X= C ( V rt 2 > * ( S I N (2* A 
) ) )/G 

2250: PRINT X 
2260: H=2210: GOTO "Q" 
2390: "LOI STEVIN 
2400: PRINT "LOI DE STEV 
IN" 

2410: PRINT "PRESSION A 
LA...": INPUT "SURF 
ACE ? " 5 P 0 

2420: INPUT "DENSITE DU 
L I . ? " 5 Q 

2430: INPUT "PROFONDEUR" 
? H 

2440: INPUT "PESANTEUR?" 
5G 

2450: P=P0+(Q*G*H> 

2460: PRINT P 
2470: 14=2410: GOTO "Q" 
2590: "ARCHIMEDE 
2600: PRINT "LOI D ARCHI 
MEDE" : PRINT "DIRIG 
EE VERS LE": PRINT 
"HAUT. " 

2610: INPUT "DENSITE DU 

l i . ? " ; q 

2620: INPUT "PESANTEUR?" 
5 G 

2630: PRINT "VOLUME DU . 
..": INPUT "CORPS I 
MMERGE?" ? V 
2640: FA=Q*G*V 
2650: PRIN T FA 
2660: 14=2610: GOTO "Q" 
65000: "V" INPUT "VIT. IN 
I T ? " : V 
65005 : RETURN 
65010: "A" INPUT "ANGLE?" 
j A 

65015: RETURN 

65020:" H" INPUT "ALTI?") 
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STR* I I ' 
- 1 LET U* 


• I 


' ïC( I ) * NE HT I * RETURN 


10* "C'CLE^R «NAIT O 

20* PAUSE '•+ + + + + + + POLYNOMES ***♦**♦" 

30* A#*" AdcU t i on" 

35* B*«" Soustraction" 

40* C#-"Mu 1 1 iP I i cation" 

45* B*-"Bi vision (d*c. )" 

50* E*- "Division Ccroi. )" 

6Û*A»A+l-5*( A «5 ) 

70 * PR 1 NT STR* Al"* " I 3* CA)* BEEP i>i*i 

30 ( D“0 * FOR 1 -OTO 15* F «UAL ÎNKEY* * IF F >OANB F< 6LET B* i * I “20 
90* NEXT I * IF B-OTHEN 60 
95* PAUSE 3*C F ) 

100* 1NPUT "BEGRE BE A«" *M 
110* 1NPUT " BEGRE BE B«"lH 
120* GDSUB STR* F * GOTO "C" 

130* »E"U--1 * FOR I-OTO M * C L S * PR INT " oA " H 
140* CURSOR 6*1 NPUT ACI)*1F AC I K >GANB U«* 

150* NEXT I . , 

16G*W— 1*F0R I -OTO N * C L S SPRINT "b("*STR* 1* J* 

170* CURSOR 6* I NPUT BC I )* IF BC I K >OANB W--1LET W« 

180* NEXT I * RETURN 4 „ 

190* " A 2 " C L S «NAIT * PAUSE " RESULTAT " * BEEP 1 * CL^ 

195* FOR I-XTD Y* PR I NT " c C "J STR* 11")* 

200 * " 1 " T-N* < M-N )* C M >N ) 

2 1 0 * B 1 M AC T ), BC T i> CC T )* GOSUB 
220* FOR I-OTO T * C C I )*A C 1 )*►£ C I 
230 * Y-T * X-U- C W-U )* C Wv U ) * GOTO 
240* "2 " T-N + C M-N )*C M > N ) 

250* B I M AC T U BC T i» CC T )* GOSUB 
260* FOR I -OTO T* CC 1 )-AC I )-BC I )* NEXT 
270* Y-T * X * U - C W-U )*C W< U ) * GOTO “A 2" 

280* " 3 " B 1 M ACM ) » B C N ) » CC M + N )* GDSUB "E" 

290* FOR I-OTO M* FOR J-OTO N * 

300* CC I+J )-C t I+J ) + A< I )*BC J )* NEXT J * NEXT 
310* Y-M+N* X-U+W* GOTO "A2" _ ^ 

320* "4 “ I F N >MWA I T * PR I NT " Bo9 C B ) >B*0C A ) * IMPOSSIBLE * RETURN 

330* BIM ACM )» BC N )» CC M-N ) 

340* GOSUB “E" 

35Û*F0R 1-M-NTD OSTEP -1*CC I )*AC I+N J^BCN ) 

360* FOR J-NTO OSTEP -1*AC I+J )-A C I+J )-CC I ï*^BCJ ) 

370 * NEXT J * NEXT I 

380* Y-M-N* Z-M-N^GOTO "Al" \ Z ~ N ~A 

390* "5" I NPUT " ORBRE- '* I S 
400 * T-M * I F T < N+SLET T-N + S 
4 1 0 * B I M ACT ) # B C N ) » C C S ) 

420* GOSUB " E " * IF U< «WGOTO 430 

425* WA 1 T * CL S * PR I NT "Ual CA KUa I ( B )* IMPOSSIBLE"* RETURN 
430* FOR I-OTO S* CC I )-AC I Î-^BC 0 ) 

440* FOR J-ITO I+N* AC J )-AC J )-CC I )*BC J-I ) 

450* NEXT J * NEXT I 
460* Y-S* Z-M* IF Z< S+NLET Z-S + N 
470* T-U+S* GOTO "Al" 

500* "Al "CLS * WA 1 T «PAUSE "QUOTIENT* 

510* FOR I-OTO Y * PR I NT "AC " I STR* I * 

520* PAUSE "RESTE" «BEEP 1 
530* FOR I-TTO Z*PRINT "rC " I STR* Il 
540* RETURN 


"E" 

)* NEXT 
" A2" 

"E* 


1 


1 


I 


* * BEEP 1 
)-" ICC I JiNEXT I 

' )-" * AC I )* NEXT I 
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SYSTEME 



“"Z-©E)(D 

LE PLUS 

PROFESSIONNEL 
DES INDIVIDUELS 


La machine a été conçue pour être la plus 
évolutive du marché. De 2500 F. pour la ver- 
sion de base à moins de 10 000 F. pour la 
configuration Unité Centrale + Clavier + 
Moniteur + Contrôleur + Unité de disquet- 
tes + Système d'exploitation CP/M. 

Compatible avec les logiciels de son prédé- 
cesseur, le MZ 700 dont il a un mode d'émula- 
tion, il possède, en plus des logiciels éduca- 
tifs, des outils de développement et des langa- 
ges en grand nombre. 

Le MZ 800 est, sous CP/M une machine aux 
performances étonnantes. Les Best-sellers du 
marche CP/M sont implantés et disponibles 
chez nos distributeurs : MULTIPLAN, 
WORDSTAR, MAILMERGE, CUPER CALC 2, 
DBASE 2, ainsi que de nombreux logiciels 


« verticaux » : Paie, compta, facturation, etc. 
N'ont pas été oubliés les logiciels de commu- 
nications : BSTAM et BSTMS, ni les langages : 

BASIC MICROSOFT, BASCOM, FORTRAN, 
PASCAL, Langage C, FORTH, MICRO LISP, 

etc. 

Le système d'exploitation lui-même, appelé 
Personal CP/M a été complètement repensé 
par SHARP. Il est articulé autour du pro- 
gramme superviseur appelé VCCP qui pré- 
sente toutes les commandes résidentes du 
système sous forme de menu. Il suffit alors de 
se déplacer avec le curseur pour appeler la 


commande désirée. Une fonction « HELP » est 
disponible à tout moment, elle permet de ren- 
seigner l'opérateur sur toutes les possibilités 
et les syntaxes spécifiques de la commande 
choisie. Les utilitaires système ont été parfai- 
tement adaptés aux spécificités du MZ 800 et 
permettent, entre autres : 

• la définition de 32 touches de fonctions. 

• Le paramétrage de 2 interfaces RS 232 C 

• Le choix des couleurs de fonds et d'encre, 
etc. 


CARACTERISTIQUES 

TECHNIQUES 
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ET EN PLUS 

Les nombreuses options permettent de person- 
naliser le MZ 800 au gré des utilisations spé- 
cifiques de chacun : 

• Ecran couleurs 

• Extension de mémoire graphique autori- 
sant 4 couleurs simultanées sur l'écran en réso- 
lution 640 x 200 points (2 en version de base) 
et 16 couleurs simultanées en 320 x 200 (4 de 
base). 

• Extension RAM 64 Ko. permettant d'émuler 
une disquette virtuelle et de créer une mémoire 
tampon pour l'imprimante 

• QUICK DISC pour l'utilisation des disquet- 
tes 2,8 pouces d'une capacité de 128 Ko. 

• Unités de disquettes 5 pouces 1/4 d'une 
capacité de 320 Ko. formatée chacune. Le 
MZ 800 peut gérer simultanément jusqu'à 4 de 
ces unités 

• Carte de communication RS 232 C à 2 ports : 
1 port synchrone/asynchrone + port 
asynchrone 

• Imprimante table traçante 4 couleurs au for- 
mat 11 cm 

• Imprimante table traçante 4 couleurs au for- 
mat 21X27 cm 

• Langages sur cassette : LOGO (Digital 
Research), MACRO-ASSEMBLEUR, PASCAL. 







SYSTEME 


CP/M 


Revenons à CP/M. Les logiciels standard tour- 
nant sous ce système d'exploitation étant main- 
tenant très connus nous étudierons plutôt le 
système lui-même. Conçu par DIGITAL 
RESEARCH et adapté spécialement sur 
MZ 800, PERSONAL CP/M est une réponse aux 
différentes critiques émises quant à l'utilisation 
du système précédent : CP/M 2.2. D'un manie- 
ment très simplifié, il est accessible même aux 
plus néophites. La différence est flagrante dès 
le démarrage du système. L'ancienne version, 
après une ligne de présentation ésotérique affi- 
chait un « A) » laissant l'utilisateur dubitatif 
quant aux commandes qu'il pouvait ou devait 
utiliser. Au contraire, PCP/M présente, dès la 
mise en route toutes les fonctions et program- 
mes disponibles dans 2 fenêtres. Dans celle de 
droite : les commandes résidentes intégrées au 
système, dans celle de gauche : les comman- 


des non résidentes et les programmes utilisa- 
teurs. La sélection de l'un d'entre eux s'effec- 
tue uniquement grâce aux quatre touches cur- 
seur. Signalons, pour conclure, que PCP/M est 
compatible à 100% avec la version 2.2 et que 
tout utilisateur pourra trouver un logiciel 
répondant à ses besoins dans l'immense biblio- 
thèque existant sous ce système. 


$.aiGO 


Logiciel sur QUICK DISC ne signifie pas pour 
autant « logiciel pour amateur ». Rapide, per- 
formant et coloré, S.CALGO permet d'établir 
rapidement une feuille de calculs et de sauve- 
garder son travail soit sur cassette, soit sur 
micro-disquette. Ce programme séduit immé- 
diatement par sa simplicité d'utilisation. Les 
commandes sont entrées essentiellement par les 
touches de fonctions et le curseur. S'il n'a pas 
tout à fait l'ergonomie de MULTIPLAN, il en 
a toutes les potentialités. Sa facilité d'utilisa- 
tion, la rapidité d'éxécution de ses calculs et 
la qualité des résultats obtenus la placent à 
niveau égal avec toutes les feuilles de calculs 
électroniques de haut niveau. Son dernier 
atout, et non des moindres, reste son prix sans 
aucune commune mesure avec ceux couram- 
ment pratiqués pour des programmes 
équivalents. 
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nom du progiciel : 

MULTICOMPTA V.M. 

domaine d'a pplication : COMPTABILITE 
description : 

PLAN COMPTABLE 82 

• Création modification 

• Visualisation édition 

SAISIE DES ECRITURES par journaux avec 

• ventilation 

• libellés libres ou automatiques 
MISE A JOUR ECRITURES 
EDITION : 

• Balances • Grand livre • Journaux 

• Comptes de résultats • Echéancier 

• Relances 
UTILITAIRES : 

• Société • Changement période et exercice 

• Table des comptes • Fichier de saisie 
matériel : MZ 800 + disquette et imprimante 
système : CP/M 

Langage : Basic Compile 


nom du logiciel : 

MULTI PAIE BATIMENT T.M. 

domaine d'a pplication : PAIE 
description : 

• Paramétrage des rubriques calculées avant/ 
après brut 

• Tenue des fiches salariés et des cumuls 

• Tenue des données entreprise 

• Saisie contrôlée et édition des bulletins de 
paie 

• Annulation de paie 

• Edition des états cumuls de paie 

• Edition de la liste des virements 

• Edition du D.A.S. individuel 

• Edition du D.A.S. fiscal 

• Edition attestation 1 200 h 

• Edition des bordereaux individuels congés 
payés 

• Edition états récapitulatifs congés payés 

• Edition état récapitulatif C.N.R.O. 
matériel : MZ 800 + disquette + imprimante 
système : CP/M 

langage : Basic compile 


nom du logic iel : FACTURATION / STOC V.M. 

domaine d'a pplication : GESTION 
description : 

GESTION DE FICHIER CLIENTS : 

• Création • Modifications • Annulation 

• Liste • Surveillance découvert 
GESTION DU FICHIER ARTICLES : 

• Création • Modifications 

• Annulation • Liste • 3 tarifs / article 
CONTROLE DE L'INVENTAIRE : 

• Liste des articles en rupture de stock 

• Valorisaiton de l'inventaire 





FACTURATION : 

• En liaison avec les fichiers clients articles 

• Adresse facturation et livraison 

• Remise à la ligne escompte 

• Port numéro de B.L. numéro de commande 

• Mode expédition/mode règlement 

• Validation 

JOURNAL DES VENTES 
GESTION DES VENTES 

• Etats journalier, mensuel, périodique 
OPTION : gestion des commandes en cours 
matériel : MZ 800 + disquette + imprimante 
système : CP/M 

langage : Basic compile 


nom du logiciel : 

GESTION PARC ROULANT T.M. 

domaine d'ap plication : TRANSPORTEURS 
description : 

FACTURATION ET COMPTABILITE 
CLASSIQUE 

GESTION DU PARC ROULANT 

• Détermination du prix du km roulant et réel 
et du prix du km roulant commercial 

• Modification de la tarification client 
GESTION DES BORDEREAUX DE TOURNEE 
matériel : MZ 800 + disquette + imprimante 
système : CP/M 

langage : Basic compile 


nom du logiciel : 

FACTURIERE TIERS PAYANT 

domaine d'ap plication : PHARMACIE 
description : 

GESTION FICHIERS 

• Médecins nom numéro SS 

• Mutuelles nom taux bleu et blanc 
Saisie des coordonnées des malades 
Saisie de la facturation 

Contrôle 

Edition de la facture subrogatoire 
Edition du récapitulatif par mutuelle 
volumes : 150 mutuelles 200 médecins 
matériel : MZ 800 ou 700 cassette + impri- 
mante feuille 
langage : Basic compile 
remarque : possibilité d'évolution vers la dis- 
quette pour le fichier client sur MZ 800 


nom du progiciel : 

VIDEO CLUB (I.M.F.). 

domaine d'app lication : COMMERCE 
description : 

QUALITES DU SYSTEME VIDEO I.M.F. 
SIMPLE : 

N'utilise que 7 touches de fonctions 
Permet de visualiser toutes les opérations 



EFFICACE : 

Emmagasine sur disquette toutes les 
informations 

Plus de 100 listing à éditer au choix. 
Entièrement paramétrable. 

IL GERE : 

Les locations, les restitutions, les adhérents 
Les cautions, les réservations, le stock 
La caisse, les fournisseurs, l'historique client 
IL ANALYSE : 

La rentabilité des films, la fréquence des adhé- 
rents, la rotation des films, l'usure des casset- 
tes, les statistiques générales, les meilleures 
locations du mois ou de l'année. 

IL CONTROLE : 

Le chiffre d'affaires par film et par client, les 
sorties de films, les échéances d'adhésion. 

IL EDITE : 

Les bons de locations, les contrats d'adhésion, 
les catalogues, les étiquettes pour le courrier, 
les listes de films des clients, les factures, ect. 
matériel : MZ 800 + disquette * 2 
système : CP/M 

langage : DBASE II Version 2,4 Compile 


nom du logic iel : PHARMA (LMiFi) 
domaine d'ap plication : SANTE 
description : 

ORDONNANCE : 

Sans délégation de paiement : 

• Saisie des produits, prescripteurs, malade 

• calcul automatique et édition de la feuille de 
Sécurité Sociale 

Avec délégation de paiement : 

• Saisie client, caisse, mutuelle, prescripteur 

• Calcul automatique montant par caisse, 
mutuelle assuré, réductible, pansement 

• Edition facture subrogatoire, feuille S. S. 

• Relevé organisme tiers payant 
Suivi remboursement : 

• Liste du dossier en attente par client, par 
organisme, etc. 

GESTION DES ACHATS : disque dur obliga- 
toire 

• Gestion des lignes lourdes répartiteurs et des 
spécialités aux tableaux, stock d'alerte, oppor- 
tunités de commande, calcul des remises par 
répartiteur 

COMPTABILITE DES VENTES : disque dur 
obligatoire 

• Chaque soir édition d'un récapitulatif des 
ventes avec statistiques 

matériel : MZ 800 + disquette * 2 
système : CP/M 

langage : DBASE II Version 2,4 Compile 


nom du progiciel : 

CABINET D ENTAIRE (I.N.F.) 

domaine d'application : SANTE 
description : 

TRAITEMENT DES INFORMATIONS 
MEDICALES 

Permet de gérer toutes les informations dont 
le praticien a besoin 
FICHE SIGNALETIQUE DU PATIENT 
Etat civil du patient, antécédents, mâchoire 
L'historigue des interventions apparaît à l'écran 
et peut être actualisé à tout moment. 

FICHE MEDICALE DU PATIENT 
le praticien dispose de tous les soins effectués 
pour chague client. Le dessin de la mâchoire 
se modifie en fonction des soins appligués. 
GESTION DU CARNET DE RENDEZ-VOUS 
Gestion indépendante gui permet au praticien 
de tenir le carnet de rendez-vous à jour. 
ETATS : 

Plus de 30 états à disposition 
FICHIERS : 

Dossiers - Actes médicaux 
Clients - Contre indications 
Règlements 

LIAISON AVEC LE LOGICIEL COMPTABI- 
LITE 

matériel : MZ 800 + disguette * 2 
système : CP/M 

langage : DBASE II Version 2,4 Compile 

nom du pro giciel : MAILING (I.M>F.) 
domaine d'a pplication : COMMERCE TEXTES 
description : 

GESTION DE FICHIER CLIENT 

• Création 

• Modification 

• Recherche 

• Listes 

La recherche multi-critères se fait sur toutes 
les informations du fichier. 

Le module d'extraction d'adresses multi- 
critères permet de générer un fichier adresse 
et un fichier textes compatible WORDSTAR et 
MAILMERGE. 

LIAISON A LA COMPTABILITE 

FACTURATION... 

matériel : MZ 800 + disguette * 2 

système : CP/M 

langage : DBASE II Version 2,4 Compile 
nom du progiciel : 

CABINET M EDICAL (I.M.F.) 

domaine d'application : SANTE 
description : 

FICHIERS : 

DOSSIERS PATIENTS RENDEZ-VOUS 
MEDECINS MEDICAMENTS DICTIONNAIRE 


Il permet : 

• Gestion des rendez-vous 1 ou plusieurs 
médecins 

• Edition des rendez-vous de la journée avec 
extrait du dossier patient 

• Enregistrement des observations dans le dos- 
sier parient (caractère médical ou non). 

• Création des liens entre les observations (ex. 
cancer du poumon et lieu de travail enfumé) 

• Création de l'ordonnance 

• Edition de l'historigue des patients 

• Edition de formulaires de S. S. 

• Gestion financière du cabinet 
LIAISON AVEC LE LOGICIEL COMPTABI- 
LITE 

matériel : MZ 800 + disguette * 2 
système : CP/M 

langage : DBASE II Version 2,4 Compile 


nom du progiciel : 

GESTION ME THODES DE VENTE (LM J.) 

domaine d'application : COMMERCE 
description : 

Le logiciel MULTIVENTE permet de gérer plu- 
sieurs méthodes de vente 

• Couponning (presse ou distribution) 

• Mailing 

• Représentants 

Les coupons réponses ou coupons commandes 
sont traités dans deux modules différents 
COUPONS REPONSES 

• Affectation à un représentant 

• Suivi du retour coupon 

• Contrôle représentant 

• Statistigues coupon 

• Statistigue représentants 
COUPONS COMMANDES 

• Confirmation commande 

• Bons de livraison 

• Facture 

• .Gestion du mode de paiement (crédit, comp- 
tant, etc.) 

• Gestion des stocks 

• Statistigues 

• Editions automatigues SERNAM, PTT... 
LIAISON A LA COMPTABILITE 
matériel : MZ 800 + disguette * 2 
système : CP/M 

langage : DBASE II Version 2,4 Compile 


nom du progiciel : 

BAB RESTA URANT STATISTIQUES (I.M.F.) 

domaine d'application : TOURISME 
description : 

GESTION DU BAR 

• Gérer les stocks en guantité et en valeur 

• Contrôler les doses vendues 

• Gérer les ventes 

• Emission tickets de caisse, factures, relevés 


hebdomadaire ou mensuels, enregistrement 

des règlements 

GESTION DU RESTAURANT 

• Gestion des stocks de marchandises 

• Enregistrement des fiches culinaires, ingré- 
dients, temps préparation, temps cuisson.. 

• Gestion de la clientèle, réservations, 
mailings 

• Emission des tickets de caisse ou des factures 

• Gestion de l'équipe de restauration 
STATISTIQUES 

• Tableau de bord synthétiques des activités 
bar et restaurant 

• Stock clientèle, repas 

• Etude des prix de revient et des marges 
LIAISON COMPTABILITE FACTURATION 
matériel : MZ 800 + disquette * 2 
système : CP/M 

langage : DBASE II Version 2,4 Compile 


nom du progiciel : 

GESTION A FFAIRES (I.M.F.) 

domaine d'ap plication : COMMERCE 
description : 

GESTION DE FICHIERS : 

• Fichier des dossiers 

Plusieurs dossiers sur une même affaire 

• Fichier des prévisions 
Enregistrement sur un dossier des tâches à 
effectuer et de leur coût prévu 

• Fichier des réalisations 
Enregistrement sur un dossier de la réalisation 
des tâches et de leur coût 

• Fichier des tâches 
Dictionnaire des tâches 

Ce logiciel permet de suivre l'évolution d'une 
affaire et de préparer la facturation 
LIAISON AGENDA et FACTURATION 
matériel : MZ 800 + disquette * 2 
système : CP/M 

langage : DBASE II Version 2,4 Compile 



Le PC 1211 est encore à l'honneur. Cette 
machine, en tant que doyenne de la longue 
lignée des PC, est évidemment très vénérée des 
Sharpentiers. Bien sûr, les mauvaises langues 
disent qu'elle est trop lente, et ils n'ont pas tout 
à fait tort... 

Alors les Sharpentiers relèvent le gant : voici 
comment donner des ailes à votre PC 121 1. 


Il s'avère qu'en court-circuitant le quartz du PC, 
on force l'horloge à osciller plus vite qu'elle ne 
le fait sous le contrôle de ce quartz de 256 KHz. 

Ainsi dopée, la vitesse d'exécution de la 
machine s'accroît d'environ 1,75 (n'ayez 
aucune crainte, ce n'est pas le maximum I). 
Cela présente un avantage indéniable pour les 
calculs à itérations. 


Afin de pouvoir relire vos cassettes préférées, 
il est conseillé de pouvoir commuter de la 
vitesse lente à la vitesse rapide à tout moment. 
On confiera ce rôle à une ampoule I.L.S. Sous 
l'action d'un aimant, votre machine s'exécute 
à vitesse normale ou accélérée suivant que le 
contact de l'I.L.S. est fermé ou ouvert. 

Les schémas vous montrent clairement l'ins- 
tallation de cette ampoule dans votre machine. 
Seul le démontage du couvercle inférieur du PC 
est nécessaire. Les bornes du quartz sont alors 
bien apparentes. 

1 500-istes et 1 251 -istes : préparez vos fers à 
souder, nous installerons ce turbo dans vos 
machines dans le prochain numéro. 

C. POULAIN 




Vos PC ont à peine digéré les programmes de noire précédent bulle- 
tin qu'en voici déjà de nouveaux, plein d'astuces et de découvertes. 
En ce début d'année scolaire, nous vous indiquons les textes, actuel- 
lement en vigueur, réglementant l'emploi des « calculatrices » aux 
examens : 

2 octobre 1979 - B.O. N° 79318 
28 octobre 1979 - B.O. N° 79409 
10 novembre 1983 — F.P. N° 1535 

Ces différents textes sont disponibles au Service de Documentation 
de l'Education Nationale, 13 rue Dufour 75006 Paris. 

Vous trouverez, dans ce bulletin, de nouveaux produits, donc de nou- 
velles colonnes en perspective ; beaucoup de Basic, un peu de L.M. 
et des applications sur tableur. En attendant de nouvelles évolutions, 
voici notre orientation actuelle. 

Luc BURELLER 
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ANEX POUR PC 1500 

Hormis les appareils professionnels d'un coût 
prohibitif, rares sont les multimètres inferfacés 
DCE V-24, pourtant ce ne sont pas les modè- 
les de contrôleurs qui manquent ! Comme pour 
les micros on peut en compter trois nouvelles 
variantes chaque mois. Mais vraiment rien en 
RS 232C, il faudra donc encore attendre pour 
trouver les nouveaux musts sur les étals des 
Silicon stores de faubourg. 

Anex, acronyme pour analogique extension, 
n'est pas à proprement parler un multimètre, 
mais plutôt une interface de mesure doublée 
d'un port de sortie, compatible V-24. Coût de 
l'opération, moins de 300 F, plus éventuelle- 
ment la perte de garantie sur la CE 1 58, qu'il 
faudra démonter pour y effectuer... deux sou 
dures ! A la mise au point un multimètre disons, 
courant, conviendra pour peaufiner l'unique 
réglage. 





CIRCUIT IMPRIMÉ CÔTÉ SOUDURES 


8 "Afi«'X"REH 
10 REM 

12 REM OBJET 

h n en 

16 REM 
18 REM 

£0 SETCOM 2400, 
22 "ANX"LPRIMT 
24 LPRINT CHR* 
LPRINT CHR* 
20 LPRINT CMR* 
30 LF'RIMT CHR* 
32 LPRINT CMR* 
34 LFR INT CHR* 
36 LPRINT CHR* 


4444 44444444444 44444 444 44 4.4444 
% ROUTINE UE DEMONSTRATION 4 
4 SET SUR LES PORTS DE 0 », ? 4 
% ' RESET ET BOUCLAGE 4 

*m****m.m*m**m**w**. 

8,E, 1 «0UT8TAT 0‘SETDEV PO 
CHR* 1 i * REM ACTIVATION VOIE 0 
65/ «REM ACTIVATION VOIE 1 
33; «REM ACTIVATION VOIE 2 
97; «REM ACTIVATION VOIE 3 
17; «REM ACTIVATION VOIE 4 
81/ «REM ACTIVATION VOIE 5 
48/ «REM ACTIVATION VOIE S 
113/ «REM ACTIVATION VOIE 7 


UN UART EN CACHE 
TOUJOURS UN AUTRE I 

Une fois encore nous retrouvons un ci à suc- 
cès, l'Uart de Général Instrument, au cœur de 
notre carte de télémesure, il sérialise les don- 
nées issues d'un convertisseur an, et inverse- 
ment, restitue en mode parallèle les caractè- 
res reçus série, Le can (convertisseur analogi- 
que/numérique), est un 8 bits, ayant 256 états 
possibles, et ce, dans une plage de 0 è 2,56 V. 
Le can compare par approximations successi- 
ves, la tension è mesurer (broche 6) a une ten- 
sion de référence (broche 9), pour ensuite, en 
verrouiller le résultat sur son bus (broches 1 1 
è 1 8). Prévoir un pont diviseur pour les mesu- 
res supérieures è 5 volts DC. Dans la version 
présente les capteurs résistifs s'adaptent direc- 


83 REM 4 LES 8 SORTIES SONT ACTIVEES 4 

40 LPRINT CHR* 129/ «REM RAZ VOIE 8 

42 LPRINT CHR* 193/ «REM RA2 VOIE 1 

44 LPRINT CHR* 161/ «REM RA2 VOIE 2 

46 LPRINT CHR* 225/ «REM RAS VOIE 3 

48 LPRINT CHR* 145/ «REM RAZ VOIE 4 

50 LPRINT, CHR* 209/ «REM RA2 VOIE 5 

52 LPRINT CHR* 177/ «REM RA2 VOIE 6 

54 LPRINT CHR* 241/ «REM RAZ VOIE ? 

5 6 REM 4 RAZ GENERAL 4 

58 REM SUIVANT CET EXAMPLE, D/ 1 AUTRES 

80 REM CODES ASCII SONT UTILISABLES 

62 REM ET PEUVENT ACTIONNER PLUSIEURS 

64 REM SORTIES A LA FOIS. 

66 GOTO "ANX" 

68 REM 


tement. Thermistances, photo résistances 
shunts pour mesure de courant et traçage de 
courbes consommation, tachymètre, manche 
è balai, voir bio feed back. C'est évidemment 
dans la mémorisation et le traitement des 
mesures que réside tout l'intérêt du système, 
par exemple, détection des mini/max, et action 
sur le port de sortie. 

Naturellement les fonctions Telecom de la 
CE-1 58 permettent le dialogue avec Anex, Rin- 
key en setdev Kl pour les entrées, et LPRINT 
sur setdev PO en sortie. Notez que 2400 bauds 
étant le maximum, PEEK et POKE n'amèneront 
pas de gain de temps spectaculaire. 


7© "TEleh*' rem ***************************** 

72 REM 4 DËMO SAISIE MESURE 4 

74 REM ***************************** 

76 REM 

78 SËTCOM 2400, 6, E,i« SETDEV Kl «NAIT 0 
60 GOSUÊ "RESET" 

82 " TEL " « A*«R I NKEY* «A-ASC A* > PR INT A/ 

84 IF INKEY* GOSUB "RESET" 

86 IF INSTRT -4G0T0 "ALIMÛFF" 

38 GOTO "TEL" 

90 "RESET "BEEP 1«0IJTSTAT 2<0UTSTAT 0 > RETURN 
94 "ALIM0FF"BEEP l'PRINT " ALIM/’OFF" 

96 GOTO "TELEM" 

98 REM 

99 REM ***************************** 


COINCES PAR LEURS PROBLEMES 
DE COMMUNICATION 

L'état des sorties étant mémorisé par les bas- 
cules RS, il se conçoit qu'un SET sur la sortie 
3 se manifestera tant qu'il n'aura pas été 
annulé par un RESET sur cette même sortie (ou 
bien coupure intempestive d'alimentation). Pré- 
voir des piles ou une alim. secteur, 6 è 8 V. 
0,2 A. Le régulateur 2805 RC. stabilise à 5 V. 
Comme nous sommes sur une carte de mesure 
il sera bien de limiter les charges à 
470 ohms*8, dans l'intérêt du régulateur, et 
surtout de la précision de lecture. 

Moralité : priorité aux opto-couleurs, è la limite 
des relais ILS/DIL. de 360 ohms feront l'affaire, 
en revanche, il se pourrait que le régulateur 
réclame un petit radiateur... 





Le circuit imprime simple face 1 50* 1 00 mm, 
comporte 10 straps, leur repérage est facilité 
par un ergot cuivre sur les pastilles concernés. 

En dehors des Cl, le potentiomètre 2 k 
10 tours, serait le seul composant particulier, 
sans parler du connecteur 10 broches (au pas 
de 2,54) pour la liaison CE 158. 

Les sorties « réserve » sont les vestiges d'un 
proto 16 voies, l'approvisionnement en 74 LS 
279 n'étant pas évident, l'alternative des 401 1 
prend plus de place et nous ampute de 8 voies. 

A la mise sous tension VART et CAN sont coin- 
cés par leurs problèmes de communication, 
c'est en jouant sur l'instruction OUTSTAT que 
l'on obtiendra le RESET propre à débloquer la 
situation, comme l'état de RTS est solidaire de 
la valeur de OUTSTAT ; nous récupérons RTS 
pour l'affecter au RAZ. Notez aussi qu'il suffit 
de tester CTS pour savoir si ANEX est sous ten- 
sion. En clair, si le 1500 retourne 4, à l'appel 
de la fonction INSTAT : ANEX n'est pas sous 
tension. 


A LA RECHERCHE DU SAINT-QUARTZ 

Côté CP. Nous récupérons le signal d'horloge 
sur l'UART de la CE-1 58, autant dire qu'une 
synchro plus précise est à éviter. Donc démon- 
tage de la CE, extraction des piles en première 
urgence pour éviter les CC. Puis, on enlève les 
deux flasques latérales (2*3 vis), et nous accé- 
dons au circuit pour y souder une 4,7 K sur la 
broche numéro 1 , l'autre aboutissant : La bro- 
che numéro 17, du connecteur Cannon 
DB-25IA), affectation courant en matière de 
RS 232C. Ainsi pas d'errements interminables 
à la recherche du saint quartz. 

Effectuez les contrôles de routine dès la mise 
en route, réglez la tension de référence vers 
2,5 V. Puis lancez la routine de mesure, la mise 
au point est terminée quand l'indication du 
PC-1 500 correspond à la lecture du voltmètre. 

J. LOUTTER 



Devant le succès 
remporté par l'excellent pro- 
gramme de navigation astrono- 
mique do Monsieur VINCENT, 
sur PC 1211 ; et pour répondre 
à de très nombreuses deman- 
des, nous vous proposons une 
nouvelle version ae NAVIGA- 
TION ASTRO. Ce 


mes d'adaptation posés par la 
version 1211. 


UÏIUSAÏION 


REMARQUES GENERALES 

• L'option « IMPRIMANTE » n'est rappelée, 
pour chaque séquence, que si la CE 1 50 est 
connecté. OUI (1) NON (2) 

• Les formats d'introduction sont indiqués 
dans l'affichage, les Intercepts (le) sont en mil- 
les, + vers l'astre, - sens inverse, les azimuts 
(Z) et ascensions Verses (AVA) de 0 à 360°, 
les déclinaisons D 0 à 90° - si Sud. Les posi- 
tions (L Latitude, G longitude) en (D. MS), les 
heures en (H. MS) comme les introductions. 

• ENTER fait avancer le Programme 

• Chaque séquence est initialisée en appuyant 
sur la touche située sous : 

Astr RESERVE I (Initialisation Point 

Astro) 

Rout RESERVE II (Initialisation Problè- 



mes de routes) 

Mare RESERVE III (Initialisation Problè- 
mes de marées) 

ASTR 

• L'initialisation Astro est valable 24 h au 
moins. 

• Noter les le, Z qui serviront soit au graphi- 
que soit au calcul. L'heure TU s'affiche battant 
la seconde. Appuyer « S » et introd. succes- 
sivement : la date, l'heure TU et le Point estimé 
choisi pour le calcul, la Rf (Route fond), Vf 
(vitesse fond). On voit alors, pour information, 
s'afficher l'Hre TU du lever et coucher du 
Soleil... choisir la séquence correspondant à 
l'astre observé. 

• La hauteur observée à introduire = Hi (Hautr. 
instrumentale) + c erreur instrumentale. Pour 
soleil et Lune tenir compte du bord observé : 
Infr. (l)Supr. (2) Centre (0), cas du Soleil à l'ho- 
rizon artificiel. 

Il est toujours possible, pour tous les astres, 
de recourir aux Ephémérides du SHOM., 
OUI (I), NON (2). Noter que les EPHm program- 
mées restent très précises (0'7) au pire, 
jusqu'en 2030. 

Sol 

Option II : Méridienne (cumultation). Après lec- 
ture de l'Hre TU de la méridienne, introduire la 
hauteur observée (Ho) à cet instant, lire la Lati- 
tude méridienne et le, Z correspondants. 
Option I : Droite de hauteur. Introd. TU d'ob- 
servation et Ho du bord observé... et lecture 
de le, Z 

Eto 

Introduire TU d'observation et Ho 

Option I : Etoile connue. Introd. le n° de l'étoile 
lu sur la liste des 81 étoiles... lire et noter le, Z 

Option II : Etoile inconnue. Introd. Z et lire AVA, 
D ; en déduire le NOM de l'étoile (v. liste)... la 
suite va à l'Option I 

Pla 

Introd. TU d'observation. Sélectionner la pla- 
nète : Vénus : I, Mars : 2, Jupiter : 3, Saturne: 
4, Introd. : Ho... lire et noter le, Z 

Lun 

Introd. TU d'observation, Ho ainsi que le bord 
observé... le, Z 

Pos 

Option I : Lecture du Point estimé transporté 
à l'heure de la dernière observation, (à corn- 


fcgl 

parer au Pt. Obs. à la même Hre) Vent apparent ? (2) : Introduire Rs, Vs, courant 

Option II : Point observé à l'instant de la der- et VR, pour avoir : VAB, Rf, Vf, VMG, VAC 

nière observation : Introd. successivement : I er Option II : Moteur : Route fond ? : (I) Introd. 

le, I er Z... 2 e le, 2 e Z : lecture d'un point. On Rf, Vs et le courant pour obtenir Rf, Vf. 

est invité, alors, à introduire un nouveau cou- 
ple le, Z (I), si NON (2)... A chaque introduc- 

tion, le point précise tenant compte des cou- 
ples précédents. (Eviter d'introduire un couple y§TE DES ETOILES 
manifestement « faux »). 


Le point adopté, au final, prend la place du point 
estimé en mémoire, en vue d'une observation 
Astro ultérieure : (l'introd. d'une heure d'ob- 
servation provoque automatiquement le trans- 
port du point estimé présent en mémoire !)... 

Si on ne veut pas transporter le point, faire Vf 
= 0 lors de l'initialisation. 

H 

Avant Rf , Vf on introduit l'élévation de l'œil au 
dessus de la mer (en mètres) 

ROUT 

Introd. les positions de départ et d'arrivée aux 
formats indiqués par l'affichage, puis sélection- 
ner au choix : 

Lox 

Affiche l'angle de route (R) et la distance (D) 
loxodromique en milles entre les deux points. 
Vtx 

Affiche route (R) et distance orthodromique (D) 
en milles ainsi que les latitudes (L), longitude 
(G) du Vertex. 

Introduire alors, le « pas » en longitude pour 
obtenir les latitudes correspondantes des points 
sur l'Ortho. Le programme affiche ensuite la 
distance totale Loxodromique de la route pas- 
sant par les points qui jalonnent ainsi l'ORTHO. 
Lim 

Introduire la latitude limite (celle qu'on ne veut 
pas dépasser). Dans ce cas, la longitude du Ver- 
tex se situe entre celles de départ et d'arrivée. 
Introduire le « pas » en longitude pour jalon- 
ner les points sur les tronçons d'Ortho de 
départ et d'arrivée. Le programme affiche alors 
la distance totale loxo entre les points ainsi défi- 
nis, ainsi que sur le parallèle limite. 

V,C 

Option I : Voile : Vent réel ? (I) : Introd. le Vent 
apparent bateau (VAB), route et vitesse sur- 
face (Rs, Vs), le courant pour obtenir : Vent réel 
(VR), Route et Vitesse fond (Rf, Vf), VMG ( + 
gain ou - perte en milles vers le Vent réel), 
Gisement vrai (Gv), Vent apparent courant 
(VAC) 


N° CONSTELLATIONS 

1 «ANDROMEDE 

2 0 CASSIOPEE 

3 7 PEGASE 

4 «PHENIX 

5 «CASSIOPEE 

6 0 BALEINE 

7 7 CASSIOPEE 

8 0 ANDROMEDE 

9 «ERIDAN 

10 « BELIER 

11 «PETITE OURSE 

12 «BALEINE 

13 0PERSEE 

14 «PERSEE 

15 «TAUREAU 

16 • 0ORION 

17 «COCHER LA CHEVRE 

18 7 ORION 

19 0 TAUREAU 

20 e ORION 

21 f ORION 

22 « ORION 

23 0 COCHER 

24 0 GRAND CHIEN 

25 «CARENE 

26 7 GEMEAUX 

27 «GRAND CHIEN 

28 e GRAND CHIEN 

29 f GRAND CHIEN 

30 «GEMEAUX 


LISTE DES PORTS (par numéro) 


N° NOMS 113 Le HAVRE 

115 La ROCHELLE 

100 BOUCAU 117 LORIENT 

102 BOULOGNE 1 18 Port TUDY 

104 BREST 120 Pte de GRAVES 

106 CALAIS 121 ROSCOFF 

107 CHERBOURG 123 St-HELIER 

109 DIEPPE 125 St-Jean-de-LUZ 

111 DUNKERQUE 126St-MALO 

112 FECAMP 128 St-NAZAIRE 


NOMS AVA. D 
ALPHERATZ 358.174+28.975 
CAPH 357.992 + 59.034 
ALGENIB 356.969+15.067 
ANKAA 353.689-42.420 
SCHEDIR 350.172+56.423 
DENEB KAITOS 349.365+18.101 
TSIH 346.143+60.602 
MIRACH 342.862+35.509 
ACHERNAR 335.766-57.343 
HAMAL 328.504+23.363 
POLAIRE 327.200+89.169 
MENKAR 314.703+04.009 
ALGOL 313.300+40.875 
MIRFAK 309.296+49.787 
ALDEBARAN 291.321 + 16.468 
RIGEL 281.618-08.224 
281.216+45.977 
BELLATRIX 279.000+06.331 
EL NATH 278.760+28.590 
ALNITAM 276.208-01.217 
ALNITAK 275.070-01.957 
BETELGEUSE 271.492+07.404 
MENKALINAN 270.504+44.946 
MIRZAM 264.070-17.948 
CANOPUS 264.128-52.682 
ALHENA 260.885+16.418 
SIRIUS 258.944-16.686 
ADHARA 255.550-28.941 
WEZEN 253.110-26.362 
CASTOR 246.689 + 31.934 


Les lignes 100 à 199 sont réservées au stoc- 
kage des constantes harmoniques (v. Doc. 
N°540 du SHOM) 

Exemple d'introduction des données du Port de 
BREST : 

104 : DATA 47, 20, 67, 415, 2040, 746, 19, 
54, 34, 243, 294, 342, 269, 1 18, 138, 178, 
117, 164 

105 : DATA 239, 452 

Pour modifier la liste des ports, faire UNLOCK 
pour accéder au programme. Il faut trouver 
3.88 mètres de hauteur d'eau le 1 er 01 1982 
à 0 h 00 (Hre en usage) 


% 



L'AVA (ascension Verse) et D (déclinaison) 
sont en degrés décimaux, servent à la recon- 
naissance. Le numérotage (1 à 81 ) est celui des 
EPHém. marines. 

Route surface ? (2) : Introd. Rf, Vs et le cou- 
rant pour avoir : Rs, Vf. 

Est 

Option I : Entretien de l'estime (I) (à faire en 
cours de journée en cas de changement de 
route et/ou de vitesse) Introduire l'Hre du chan- 
gement de routefh Tu) ou d'arrivée, la nouvelle 
Rf, Vf et lire le Point par la séquence « Pos » 
en RESERVE I 

Option II : Autre problème d'estime ? (2) : 
Introduire l'heure e la Position de départ, Rf, 
Vf , puis l'heure du changement de route (ou 
d'arrivée), nouvelle Rf, Vf et lire le Point par 
la séquence « Pos » en RESERVE I 
La séquence V, C est indépendante et doit s'uti- 
liser seule. 

Les séquences Est et Pos peuvent s'utiliser 
avec Astr 

MARE 

Introduire la date au format indiqué, le déca- 
lage horaire : en France : 0 en hiver, I en été, 
le numéro du port (voir la liste). Pendant le cal- 
cul préliminaire, la phase de la Lune s'affiche ! 
Sélectionner alors au choix une des séquen- 
ces : 

Hr 

Introduire l'heure en usage à laquelle on veut 
obtenir cette hauteur... et lire la hauteur d'eau. 
Hre 

Introduire la hauteur d'eau, puis l'heure 
approximative vers laquelle se situe l'heure cor- 
respondant à la hauteur introduite... et lire cette 
heure. 

P, B 

Affichage de la liste des Pleines mer, basses 
mer de la journée (heures et hauteurs)... après 
environ 1 minute de calculs ! 

Le document n° 40 du SHOM contient les 
Constantes harmoniques de 855 PORTS du 
monde. Le programme reste valide que les 
marées soient du type diurne, semi-diurne ou 
mixte. 


Les coordonnées moyennes des étoiles 
(dépouDées des nutations, aberrations) ont été 
calculées pour l'écliptique de 1979, 0 


LISTE DES ETOILES 


N° CONSTELLATIONS 

31 a PETIT CHIEN 

32 0 GEMEAUX 

33 f POUPE 

34 y VOILES 

35 é CARENE 

36 5 VOILES 

37 X VOILES 

38 0 CARENE 

39 i CARENE 

40 a HYDRE Femelle 

41 a LION 

42 0 GRANDE OURSE 

43 a GRANDE OURSE 

44 5 LION 

45 0 LION 

46 y GRANDE OURSE 

47 y CORBEAU 

48 a CROIX 

49 y CROIX 

50 0 CENTAURE 

51 0 CROIX 

52 t GRANDE OURSE 

53 f GRANDE OURSE 

54 a VIERGE 

55 f GRANDE OURSE 

56 0 CENTAURE 

57 0 CENTAURE 

58 a BOUVIER 

59 «CENTAURE 

60 0 PETITE OURSE 

61 a Cne. BOREALE 

62 «SCORPION 

63 a TRIANGLE AUSTRAL 

64 e SCORPION 

65 X SCORPION 

66 a OPHIUSCUS 

67 y DRAGON 

68 6 SAGITTAIRE 

69 «LYRE 

70 a SAGITTAIRE 

71 «AIGLE 

72 y CYGNE 

73 «PAON 

74 «CYGNE 

75 «CEPHEE 

76 e PEGASE 

77 «GRUE 

78 0GRUE 

79 a POISSON AUST. 

80 0 PEGASE 

81 «PEGASE 


NOMS 

AVA.D 

PROCYON 

245.450+05.279 

POLLUX 

243.992 + 28.078 
239.282 - 39.945 
237.780-47.273 

AVIAR 

234.480 - 59.441 
228.970-54.629 

SUHAIL 

223.187-43.347 

MIAPLACIDUS 

221.758-69.629 

220.857-59.185 

ALPHARD 

218.362-08.566 

REGULUS 

208.187+12.070 

MERAK 

194.860 + 56.495 

DUBHE 

194.391+61.860 

ZOSMA 

191.753+20.639 

DENEBOLA 

183.005+14.690 

PHECDA 

181.818+53.812 

GIENAH 

176.318-17.423 

ACRUX 

173.657-62.981 

GACRUX 

172.504-56.994 

169.910-48.840 

MIMOSA 

168.380-59.573 

ALIOTH 

166.725+56.074 

MISAR 

159.234+55.036 

L'EPI 

158.980-11.051 

ALKAID 

153.324+49.418 

AGENA 

149.419 - 60.272 

MENKENT 

148.641-36.267 

ACTURUS 

146.326+19.290 

RIGIL KENT 

140.460-60.749 

KOCHAB 

137.317+74.241 

LA PERLE 

126.554+26.785 

ANTARES 

112.972-26.386 

ATRIA 

108.393-68.991 

107.807+34.253 

SCHAULA 

096.955-37.089 

RASALHAGUE 

096.511 + 12.574 

ETAMIN 

090.971 + 51.493 
084.306-34.395 

VEGA 

080.943+38.763 

NUNKI 

076.517-26.322 

ALTAIR 

062.561+08.813 

054.634+40.189 

PEACOCK 

054.001-56.803 

DENEB 

049.821 +45.205 

ALDERAMIN 

040.484+62.498 

ENIF 

034.216+09.779 

ALNAIR 

028.271-47.064 

019.646-47.000 

FOMALHAUT 

015.877-29.734 

SCHEAT 

014.308 + 27.970 

MARKAB 

014.071 + 15.092 


1 US ING "##»#. ##» s RETURN 

2 US ING "*###. **«*“ s RETURN 

3 USING “««#.##“* RETURN 

4 USING "###*#.#" : RETURN 

5 FOR NU*1TQ ND* REND H, Ui X«X+U*CDS M , Y«Y+M*S I N W s NEXT NU*RX«SQR (Y 
-^S+X'-E )+ . 1 * F I «ACS ( X ■■•■RX )*SGN Y+ 1 80 

6 RX«*INT F I +RXV 1 E4 .< X»0 > Y«0 s RETURN 
? IF IM*1LPRINT s RETURN 

8 CLS «NAIT IPRINT "RCL ?"*GDTD 8 

9 HL=48 1 268*T-89. 6» PL*4Q69*T-25. ? 

10 NL»1934*T-259, MS«360G0. 769*T-80. 309, 2«2*MS* RETURN 

1 1 GOSUB 95 * GDSUB 96 s I NPUT “ Dec* 1 0.9e Hr e ( H . M ï? * " S D » " No du Port ^ * " S A 

*DD-DEG DiGOSUE 770 H 

12 IF IM*1LRRINT *LPRINT "DATE* " s DE* LPRINT “Déco, 1 0.9© Hre* " S DD* LPRIN 
T "Port- No* “ï A ■■■■■■■■■ 

13 GOSUB 9* RESTORE A* FOR X*1T0 19* RE AD 8CXHNEXT X*READ TE, U 

14 GOSUB 6* DT*MS-2*HL-9û* RESTORE 560 

«RX^ 5 ND * é! GDSUE 5 * R 1 «RX » ND* 1 1 » DT*2— 24’HL * GOSUB 5 * R2»RX , N0*3 * GOSUB 5*R4 

16 IF H0*1LET DT«ü,HQ*A*eDS (MS-KJ*BEEP 5*G0T0 8 
1? HO* 1 » T*T+1. *-36525* GDSUB 9* R7-R1 » R8*R2» R9«R4* GOTO 14 
18 GOSUB 4* LPRINT “R" ï A* “ , D" S S* RETURN 

. C .™,^ DSUE 3îPRINT ZE**DMS HS " TU" * GOSUB 2*PRINT “L“SDMS W*“,G“*DMS 2 
• RETURN 

20 H*H0*G*179 

21 POKE 1 099, G* RESTORE 2? ! FOR G=12T0 14*G0SUB 22*8(G )*R,®(G+3 >»F*NE 
XT G*G*L*SIN 0+2*H1*SIN P+4+N*SIN Q* RETURN 

22 READ A,B,J*F*B-As IF FM80LET F=F-360 

23 F*A-18Q+T.*'24*H J*360+F ),R*A-INT A+T>'24*( B-A+INT A-INT B)*NAIT 

24 H*H+ 1 E4**R*C.aS F , X*U>- 1 00+H -- 1 E3 * RETURN 

26 NAIT «PRINT USING "#**#**. #“ * “R"* NS “,D"Ï S* RETURN 
2? DATA R7,R1, 1 , R8, R2, 2,R9, R4, 4 

28 GOSUB 3* LPRINT 2E*?DMS H* “h" * GOSUB 2*LPRINT "L*t“;DMS L* LPRINT “ 
Lon“lDMS G* USING * LPRINT “Rf "ïRî “,Uf'“S F* RETURN 

29 G»T-U* GOSUB 64 

30 L«0* GOSUB 61 *L1*LC»L*I* GOSUB 6 1 * D*L 1 -LC , Y*6«*=60 s GOSUB 62* GOSUB 4* 
S-S+ABS ( ( Q— I )*60**>M.'-D )* RETURN 

32 INPUT «Hre locale (H.M >?* “5T*T*DEG T-DO* GOSUB 20 

33 AX*="v"*BEEP 5* IF G<OLET AX*«-^" 

3* T*DMS (T+DD IsPRINT “*“ïT? "h “ïAX*S“ Hr“»X*GQSUB ?*LPRINT 
AX*S T* "h Hr“ SX* GOTO 8 

35 0-B»F*C* GOSUB 71* RETURN 

36 GOSUB 760 

37 H«DE6 H, I*H-H2. H2*H, T-T+I >-876600, OC+I*15. 041 , D*I*F>-60 

38 G«G-D*SIN R-'-CDS ( L+D' 2*C0S R )*L*L+D*COS R* RETURN 

39 GOSUB 43* P*. 2665'- 1 * RETURN 

40 GOSUB 10*M«35999.G5*T-1.524,K»SIN M*C 1.919+K1*T J+SIN (2*M)*.02 

41 S»MS+K+NG, 1*9997 . ( 1E4+167**jCDS (M+K ) )* RETURN 

«12+CG+B >-'15 1* GOSUB 37*G0SUB 43*B*ASN SIN (N-C+180+H*15 >,H 
*DMS H * RETURN 

43 GOSUB 40* J*S»K*0* GOSUB 98* RETURN 

45 INPUT H EPhm.?tl,si NON* 2* "SX* RETURN 

46 INPUT "Par* « . ?( M. i» ï* " s Q* Q»Q%50>-3* RETURN 

47 INPUT " AU*?( D. MS )* " $ N* N*360— DEG N* GOTO 50 

48 INPUT " l.-'2dt*m?( N. m )* “ S P* P«P.*-60* RETURN 

49 INPUT "AH*0?CD.HS )* "S J* J*DEG J-G 

50 INPUT "Decl?(D.MS-*i SUD S* "SD*0*DEG Q* RETURN 

** ? EEP 5tINPUT "H*'. 0bs‘?C D. MS 1* " S HD*\.**DEG H0*U«U-.0293*SQR E-.0012- 
. 0154' TAN U-*-Q.-lE3*C0S U 

52 IF P< >01 NPUT "Bord SuP* 2, InF* 1 , Centr * O?" s D* IF I»=2LET p»-p 

53 U*U+P*SGN E* RETURN 

56 PRINT 2E**IF IM-1LPRINT 2E**LPRINT "P*s“sP 

57 GOSUB 74* RETURN 

58 AX*»"hBM“* IF U*1LET AX*»"hPH“ 

59 X*DNS I X+DO >sU*-*«jpRlHT AX*S Xs “ * Hr" S Y* IF IM=l LPRINT NX*;XS “ >Hr‘‘S 

60 RETURN 

61 LO?915.6*LOG (TAN (45+(L-Û. 197*S IN ( 2»* t L ) P-2 ) )* RETURN 

62 M*SQR ( Y ''2+D' x 2 )* A=ACS ( D- M I^SGN Y-180*NQT SGN -Y* RETURN 
64 G*ACS COS G*SGN SIN 6* RETURN 

66 INPUT "Pas en Lon9( DEG )?* " s P 

67 GOSUB 64: NA* INT ABS ( G- P ) * RETURN 

68 A*. 3478el , B*. 0039*1 * IF TCl.OFLET A*. 2606*1 >B=. 0044*1 

69 RETURN 

H! “ h! “’ I,NPÜT Fnd,-,R.CLS 

71 N*ACS (TAN O-TAN J ), 6*F-*-2*H>l: GOSUB 64* GOSUB 1 ï RETURN 

72 NAIT : GOSUB 1*PRINT "L"sDNS QS",6“SDMS 6: RETURN 

73 LPRINT "L"SDHS Qs“,6"SDHS G* RETURN 

B ?2?i™«M6DSuîT’rÏ" ,TN <TSH J * CDS ^ M ï i*6»T+2*PS GOSUB ^.«EU^iGnSU 
75 GOSUB 29*T*U, I*Q*NEXT R : RETURN 

78 J*C— G— N,N*1 

79 X*COS JeCOS 0>«C0S L+S1N L^SIN D 

I? J * StH L_TSH “* CDS l - >!eDSU ® B2<RETURH 

DSufl^îo 2 ^' 1 ^ " POir,t ?=‘.S.1F X-1LET 

83 M*0»N*0,P«G»2E**"Pt.übser a*" 

84 P=P+ 1 s INPUT “ 1er Intc ?* "SA, “2?* “SJ, “2eme Intc?* " S B, "2^* " s D 

J * SIN B ' CDS “* IN 

86 N*L+M--P, 2*G— N>P* GOSUB 19 

87 Ibtf>UT “Point Sulvt?*l,sl NON* 2* "SX* IF X*lGOTD 84 

88 L*U, 6*2 

89 GOSUB 7* GOSUB 28* GOTO S 

90 GOSUB 78* GOSUB 51 

91 A*A+180*S6N YsGOSUB 1*I=(U-I )*60* PRINT "Ic*"S Is “,?*“SA 

b “** '" !DHS H,LPR1HT “■«-'HD.gosü 

93 GOSUB 95* MAI T O* PRINT “DePart. * “s *6DSUB 200* IF IM*1LPRINT * GOSUB 


( 30. 6*( M+l ) S-A+INT ( A*-- 


GOTD^sg 08016 205 * INIPUT “ h Tu Ch9t.Rte?(ou Arrlv I* “s H: GOSUB 37* GOSUB 70* 
95 LOCK *P*10O* GOSUB 740*RETURN 

* IF 9 N<^Î ï ^* Dî J ~ INT ' N=INT ( D-J+P ), Y*( D— INT D J*p"2 

,36S - 2S * V “ INT 

5+ C^ t^; 3,78 ' D - COS J,GDSUB 6 2 .H= ft ,IB=«SH CSIH K..„7 

99 IMPUT "Entretien Est* 1 , Autre* 2 ?"SX*DN XGOTO 94,93 
1 , 172. 20, 66 ’ 57, 246 ’ 1 189 ’ 4l0ï l0 ’ 34, 39, 283, 288, 339,87, 107, 128, 16 

101 DATA 255 

102 DATA 0,19,31,50,536,2895,929,119,340,213,0,86,115,138,337,358,52 


,253, 277, 333 ' ' ' ■ ■ 

103 DATA 490 

104 DATA 47,20,67,65,415,2040,746, 19,54,34,243,294,342,269,118, 138, 1 
78,117, 164 

105 DATA 239,452 

106 DATA 81,25,50,26,441,2459,779,90,254, 150,219, 100, 160,81,352, 15,6 
9,283,309,6,400 

107 DATA 61, 19,59,91,368, 1870,699,47, 138,84,243,330, 13, 120,238,257,3 
01,24,50, 100 

108 DATA 383 

109 DATA 41, 13, 46, 96, 575, 3126, 1031,96,270, 185,282,31,49, 128,318,340, 
31,218,243 

110 DATA 298,484 

111 DATA 70, 32, 86, 33, 372, 21 16, 627, 57, 156, 87,233, 111, 177, 12,357, 22,75 
,310,337,35,324 

112 DATA 94,8,43,86,493,2679,870,0, 125,81, 153,342,38, 139,306,326, 14, 
0,173,226,456 

113 DATA 75, 11,49,94,491,2608,878,89,252, 174,236,357,32, 131,294,315, 
3,113,136, 190 

114 DATA 487 

115 DATA 58,24,73,62,362, 1743,631, 107,248, 106,230,301,342,89, 109, 129 

, 162,25,72 ' ' ' ' 

116 DATA 159,384 

117 DATA 0,22,65,60,316, 1500,546,41,80,22,0,301,345,92, 1 10, 130, 163,3 
7,87, 183,300 

118 DATA 193, 19,61,64,307, 1471,546,35,77,24,231,290,343,90, 105, 125, 1 
■■ 58,33,83, 183. 

119 DATA 309 

120 DATA 49,25,71,45,306, 1575,521,31,75,21,255,304,346,99,119, 138, 17 
3,18,69,176,321 

121 DATA 28,22,71,87,534,2689, 1015,41, 105,65,242,295,345, 1ÛO, 153, 171 
,218, 168,200 

122 DATA 255,519 

123 DATA 37,29,81,90,646,3360, 1324,71, 199, 147,223,233,346,97, 166, 182 
,231,279,300 

124 DATA 355,606 

125 DATA 50,29,71,61,280, 1336,463, 13,29, 13,94,290,333,80, ÎOO, 121, 154 
,341,31,107,250 

126 DATA 54,24,88,90,720,3680, 1432, 101,273,206,224,330,354, 126, 190,2 
08,258,315 

127 DATA 337,35,671 

128 DATA 89,23,66,58,358, 1710,605,75, 180, 70, 241 , 298, 347, 93, 1 16, 136, 1 
70,57,108,215 

129 DATA 320 

130 INPUT "RP?* 1 ,Rv?*2* “SX* IF X=2G0TD 135 
132 GOSUB 160* GOSUB 172* GOTO 8 

135 INPUT “Rf ?* “5 R* GOSUB 162* H=R-J, U=rtSN (K-- B*SIN Hj*2=R+U 
137 GOSUB 182* PRINT “Rv* “ SAS " , Uf* " S K^COS H+B*COS U* GOTO 8 
155 INPUT “Uol le?* l,Mot-eur*2* "SX*US1NG “»##«.»“: IF X=2G0TU 130 
157 INPUT "Me Ree 1 ?* 1 , APP. * 2* “ S X* ON XGOTO 165, 175 

159 INPUT "GA( 0 a 360 )?* “ 5 S, "UAB?* " S U 

160 INPUT "Rs?*"Sl 

162 INPUT “Us?* " 5 B, “Ct( Nds )?* “ s K, “Ct. ( 0 a 360 )?* “ s J s FOR Y-2TD 21 : Su Y ï 
*»( Y H . 0 1 * NEXT Y * RETURN 

165 GOSUB 159*B*B-U*CÜS S,Y=U*SIN S* GOSUB 62* Q=18Û-A, N*Y.-*SIN Gl*X=I-*-û 

166 D=K-W*eOS X, Y=W*SIN X* GOSUB Ô2:N=Y- SIN A,0*I-H3+ASN (K^N^SIN XI* 2 
*0* GOSUB 182 

167 PRINT “UR* “5NS “nd,du“S As GOSUB 172 

170 PRINT “UMG* “ S M>*=CaS (0-A )5 “,6U";Qs2=I+Q*G0SUB 182* PRINT "UAC du " 5 
A» Ns “nd" * GOTO 8 

172 B=B*CQS I+K^COS J, Y=B^SIN I+K>SIN J* GOSUB 62* PRINT "MP* " ; Ms “ , RP: 
"5 A* RETURN 

175 INPUT “UR(Û a 360 S?* “s O, “(Nds )?* “s N* GOSUB 160 

180 X=18Q+0-JïY*N*SIN X , D*K-N*COS XsGÛSUB 62* P=M, 2=0+ASN (K F'+SIN X) 

* GOSUB 1 82 * 0=A— I * Y=P*S I N O 

181 D=B+P*CQS Q: GOSUB 62*PRINT “UAB* *' S Ms “nd" 5 “ , GA" 5 A* GOSUB 1 7 2 * GOTO 
170 

182 Y=SIN 2,B=C0S 2* GOSUB 62* RETURN 

200 INPUT “h TU £st-( H. M >?* “ s H* GOSUB 37* CLS * INPUT " Est l * La t ( D . M ï-s l 
SUD?* “SL 

201 INPUT “Long-si EST?* “sG*L*DEG L,G=BEG G*GOSUB 70 
205 2E#=“Pt.Estlm a* “* RETURN 

212 NAIT O* USING “###.####“* PRINT “hTU“s(TlME - 1 OÙ- 1 NT (TI HE 100 I 
IOOS" (tf>P*S. .Suite. ." 

214 IF INKEY* <>“S"GOTO 212 

220 NAIT * GOSUB 95* GOSUB 96* Kl *— . 006* GOSUB ÎO* NG*-K1^SIN NL,NQ=.U025 
>*COS NL 

224 C*. 2769194+lüO. 002136-^T . C=( C-INT C ^360+NG^. 9* H2=0* GOSUB 200 
233 INPUT “el Oet I (Metr ï?* “ ï E* GOSUB 750* GOSUB 7* USING * LPRINT “DATE* 
“IDE* LPRINT “el Del I * “s E* GOTO 89 

238 0*2. 5* INPUT "Droite Hr*l,Nerld*2 ?“5X*1F X*2GQTQ 262 

239 GOSUB 36* GOSUB 45* IF X*2GQSUB 39* GOTO AO 

240 GOSUB 49* GOSUB 48 

241 M*lt GOSUB 79* GOSUB 51* GOTO 91 

262 B=G* GOSUB 42* GOSUB 42* GOSUB 2* PRINT “TU Mer* “SHS “,Lat. . “s GOSUB 4 
5* IF X* 1 GOSUB 50* GOSUB 48* GOTO 269 

268 GOSUB 37* GOSUB 39 

269 GOSUB 51*A*DMS (O+SGN L*(9Û-UÏ> 

274 PRINT "Lat.Mer* “SAS “ Ic,2. ..“*IF IM=I LPRINT : LPRINT “TU Mer* “ SDM 
S H* LPRINT “Lat Mer“SA 
276 GOSUB 78* GOTO 91 

291 GOSUB 36* GOSUB 45* IF X*1GDSUB 49* GOSUB 46*P=05G0Ta 241 

292 INPUT “Menus* l, Ma* 2, Ju* 3, Sa* 4 ?“ïA*DN AGOTO 300,308,332,340 

296 BATA 58519. 212*T+342. 767, U-l . 4Û8*T-13Û. 164, . 9*T+75. 78, . 00678» . 72 
333, 3. 394, Kl 

300 N*û* RESTORE 296 
302 READ U»P,S»X»M,B,M 

304 2*P* FOR A*OTQ 6 * 2*P+X>*-- 1 80 "P I >*=SIN 2 * NEXT A : Y=S I N t 2 - 2 l^SQR ( ( 1+X 
V( 1-X ) ), D*COS t Z.--2 1* GOSUB 62 

305 U*U*( 1-X*CQS 2 >» Q*U+N+2>» t A— P-S, Y*CQS B^SIN Q,D=CDS O* GOSUB 62* 0*A 
+S,N*ASN (SIN ©*SIN B 1* GOSUB 40 

306 S*S— Kl— NG*2*0— S» Y=SIN 2%M»C0S N» D-COS 2*U*eOS N+I* GOSUB 62* Y=U4=S 
IN N»X*SQR ( M- v 2+Y "2 ) 

307 0*2. 5.--X, K*ASN ( Y X ), J=A+S-*-Ki*CDS Z-*-W+NG* GOSUB 98*P*0*GOTO 90 

308 A*16105*T » B*A*. 812,B=A*. 142, I=A -. 955, J*A>*=. 9&5* RESTORE 322*0*9 
314 K=Û* FOR X=1T0 O* READ W, Y* K=K-*-N*COS Y* NEXT X*N*K' lE4ï60TQ 302 
322 INATA 66» 217-A, 66, 57+B, 42, 20+2*A, 42, 100-D» 21, 74+1 » 21 , J-83, 21 , 3*>-U 

098*T , 1 2 , 4?+2*B 

324 DATA 12» 243+3035*T, 19141 . 696>*=T-66. 25, U-l . 84*T+25. 769» . 771*T+48. 7 
86». 093396 

326 INATA 1.52369» 1.85, Kl 
332 RESTORE 377* M*366* GOTO 345 
340 RESTORE 361*M*396 
345 0*130 

350 IF 1Û0*T<QREAD A,£»D»P»0*GOTQ 350 

355 N*( AeCOS ( C 10Û*T— P VD*360 1+B L-1E3* RESTORE Ns GOTO 302 

361 DATA -174,-44,29» 114» 116,-330» 114.2,52» 115» 102,97.7» 120» 14,98.5» 
97 

362 DATA -400,-100,58» 75» 83. 7» -295» -100,48» 80» 74 

366 DATA 3036. 302*T+238. 049» U-l. 6l*T-12. 72» 1.01 *T+99. 443» .048482,5.2 
0256, 1.304, Kl --2 

377 DATA 32» 3» 9» 123» 123» 14. 2» 21 ,7» 116» 116,45» 17» ÎO» 114» 112,33.4» 10,9 
,104,102,-62.5 

378 DATA -18» 10» 99» 1ÛQ» -1 1 1 . 4» 26. 9, 12» 8F. 75» 88» 121 . ?»37, 1 1 ,82. 7,83,3 
6» 123» 8» 74. 5, 74 


ECHELLE ; 

ECHELLE argument donne à la variable SCALE 
(apparaissant à l'écran sous le nom S) la valeur 
de argument. Son effet est de changer les 
déplacements relatifs du stylo. 

Avec ECHELLE 2 AVANCES 50 fait avancer le 
stylo de 50 unités (pour l'imprimante du 
MZ-700) 

Avec ECHELLE 2 AVANCES 50 provoquera 
une avance 100 unités. 

TAILLE : 

TAILLE argument multiplie SCALE par la valeur 
de l'argument. 

Par exemple TAILLE 0.5 puis ETOILE dessinera 
une étoile deux fois plus petite. 

LIGNE : 

LIGNE argument est un entier de 1 à 16 per- 
met de modifier le type de ligne tracée par le 
stylo (Voir page 87 manuel de l'ordinateur). 

SOIT: 

SOIT permet au programme d'utiliser des varia- 
bles. SOIT COTE 15 + 7 donnera à la variable 
COTE la valeur 22. On remarquera que COTE 
est alors une variable considérée comme cel- 
les du programme, par le Basic. Autrement dit, 
il ne faudra pas utiliser comme variable une des 
variables du programme lui même, sous peine 
de le voir fonctionner de façon aberrante. 

SI. SINON : 

C'est le IF THEN ELSE du Basic : SI condition 
action I SINON action 2. Il peut être utile pour 
la condition, d'utiliser certaines fonctions du 
Basic ce qui peut poser des problèmes aux pro- 
grammes (pour lequel, un espace est un sépa- 
rateur entre diverses commandes). On pourra 
alors écrire la condition entre crochets : (cf 
ligne 3). 


UTILISATION DE PARAMETRES : 

L'exemple précédent montre qu'il est possible 
de définir de nouvelles commandes possédant 
des paramètres. Il peut y avoir au maximum 5 
paramètres (exemple : On entre POUR DOU- 
BLEPOLY REP CO Cl Al Fl) et lors de l'appel 


POUR CARRE 
Paramètre c ! COTE 

1 REPETES 4 

2 AVANCES COTE 

3 DROITE 90 

4 ENCORE 

5 FIN 

POUR CARRES 



SOIT COTE 0 

REPETES 20 

SOIT COTE COTE+5 

CARRE COTE 

ENCORE 

FIN 


QUELQUES EXEMPLES 

Autre définition d'un carré. Il faudra faire Shift 
Break pour arrêter le programme et le repren- 
dre par Shift F4 


POUR MA2E 

Paramétré*: DISTANCE 

1 AUANCES DISTANCE 

2 DROITE 90 

3 NA2E DISTANCE+5 

4 FIN 


on indique les valeurs : DOUBLEPOLY 50 50 
1 00 30 1 20. Le programme affectera à REP la 

valeur 50, à CO la valeur 50 à Fl la valeur 

120. A la fin, REP, CO,..., Fl retrouveront leurs 
valeurs intiales. Il y a donc, comme en Basic, 
passage de paramètres, par valeur. 

REMARQUES : 

Shift F5 permet de réinitialiser l'imprimante (en 
cas d'erreur). 

Shift F4 permet de faire redémarrer le pro- 
gramme après un Break, sans perdre le contenu 
de la mémoire. 

Les valeurs X et Y affichées par le programme, 
en haut à gauche de l'écran sont les parties 
entières de X et Y, positions du stylo. Elles sont 
donc « arrondies » par rapport aux vraies 
valeurs. D'autre part, il se produira des erreurs 
sur X et Y car les variables sont calculées par 
des Sinus et Cosinus d'angles exprimés en 
degrés. 


POUR CARRE 


AUANCES 100 
DROITE 90 
CARRE 
FIN 



POUR DOUBLEPOLY 
Paramétrés: REP C0 Cl Al Fl 

1 SOIT KA A 

2 REPETES REP 

3 SI CCKA MODULOCFUAnt 
<F1 *ai>2D] AUA 

NCES C0 SINON AUANCES Cl 

4 DROITE Al 

5 SOIT KA KA+A1 

6 ENCORE 

7 FIN 



POUR SPIRAL 
Paramétra* : DISTANCE 

1 AUANCES DISTANCE 

2 DROITE 75 

3 SPIRAL DISTANCE+5 

4 FIN 


396 DATA 1223. 51+T+266. 564, U-l . 958+T-91 . 098, . 873+T+l 12. 79, .05558,9.5 
5475 » 2 • 49 , K 1 .'''3 

403 I-10Û+T-79» GDSUB 45s IF X=1GDSUB 4?sG0T0 276 

406 INPUT "Numéro de I ETOILE '?* " 5 X s RESTORE ( 1QG0+X JsREAD X,D*N»360- 

>i; i s ?i s 

412 M*üs W=SIN N , Y=COS N*Z=K1+C0S S+.92*IF X=3G0SUB 68SG0T0 426 
418 IF X=19LET M=Klx2 

422 A» I + ( . Ü 1 28-K 1 +W+T AN 0+M I , B=- 1 +K 1 * Y 

426 A=A+NG+( .92+.4+W+TAN O I+NO+Y+TAN D+( 2+Y+W+Kl+SIN S JxCDS O 
430 B=B+NG+.4+Y+NQ+W+2+.43+CDS Q-2+M+SIN D+K1+Y+SIN S+SIN 0,N=N+A,0» 
O+Bs GOTO 276 

436 GOSUB 36s P»Q, Q=0* GOSUB 51 s S=36E3+T-80* IMPOT "Et. Connue: 1 , si NONs 
2 ?"SX*IF X=1GDTÜ 403 

439 INPUT "Azimut?: "î J: Q=U,W=-ls GDSUB 79s B=360-A+G-C* Y-SIN B,D=CQS B 
s GOSUB 62 s GOSUB 1 

440 PRINT "Etl s AU&: " ? As " , D* " 5 I * GOTO 403 

442 GOSUB 36 s GOSUB 45s IF X=1 GOSUB 46s GOTO 240 

4 H GOSUB 40:B=47?i98.85+T-63.89,U=2+N,D=445267. U+T-9. 26, J=2+D»N=2+ 

445 1=11. 25+T *483202 . 025+ . 025+SIN NL,K=2+I , 0=J-B, Q=J~I , A=44 s RESTORE 
452 

446 W=Os FOR U=1TÜ As RE AB X , Y : W=W+X+S I N Y s NEXT Us IF A=44LET P=W,A=32s 
GOTO 446 

448 0=95 1 +52+CDS B+9+ÜDS D+ 8 +CDS J+3+C0S N,J=(P-2+SIN NL-89563+48126 
7883+T )x 1E3 

450 K=W 1 E3 s GOSUB 98: P=272E-6+Q: GOTO 90 

452 DATA 6289, B, 1274, 0, 658, J , 214, N, -186, N, -114, K, 59, J-N. 57, 0-M, 53, J+ 
B, 46, J— M, 41 , B— M 

456 DATA -35 , D , -30 , M+B , 1 5 , J-- K , - 1 3 , K+B , 1 1 , B-K ,11, 0+J ,10, 3+E , 9 , 2+0 , - 8 , 

0+M, -7 , J+M, 5 

457 DAT A B-D , 5 , N+D , 4 , J-M+ B , 4 , N+ J , 4 , 2+ J , 4 , 0-N , 3 , N-M , -3 , 0+K , 2 , J-M-N , -2 
, B+D, 2, J— U, -2 

458 DATA N+M, -2, U, 2, 0-U, 2, K-J-B, -2, K+J', 1 , J-M-B, -1 , N+K, -1 , D+D, -1 , J+B+ 
M, 1,2+0-M, 1 , B— U 

460 DATA -1, 0+U, 5128, 1,281, B+I, 278, B-I, 173, 0,55,0+1, 46, Ü-B, 33, J+I, 17 

, N+ 1,1, 0+ J , 9 

462 DATA Q+B , 9 , N- 1 , 8 , 0-M , 4 , 0-N , 4 , J+ 1 + B , -3 , 0+M , 2 , D+ 1 -M , 2 , J+ 1 -M , 2 , O- 1 - 
M » 2 , I— M+B, 2, 0+0 

464 DATA -2 , I +M , -2 , 3+ I , 2 , B- I -M , -2 , I +D , -2 , I +M+B ,1,1 -M-B ,1,1 -M , 1 

467 DATA I-D, 1 , I+3+B, 1 , O+J+I , 1 , B-3+I , 1 , 1+2+0 

470 INPUT "Ouelle Hr?s " S TE, "Hre APProx?: " S T s T=T-DQs GOTO 476 

472 IF ABS Y > 6 . 3LET Y=Y.'‘2sG0T0 472 

474 T=T+Y 

476 GOSUB 2üs Y=(X-TE ]i.- C5+G )s IF ABS ( X-TE )>. O2GOT0 472 
478 GOTO 33 

480 NAIT Os PRINT "Hre,HrsPM,BN. . "s IF DT=ÛLET DT=1 s U=Os GOTO 489 
486 GOTO 513 
489 C=~. 77, 1=540 

492 IF ABS U<6G0TQ 495 

493 U=Û,C=C+2.1 

495 T=C+UsG=&99: GOSUB 21 

498 Y=-12+G- (PI +( L+COS 0+4+M+C0S P+16+N+C0S 0 ) )s IF ABS Y>. 1LET U=U+ 
Y: GOTO 492 

504 T=T+Ys IF T<24G0SUB 20sGDT0 I 
507 GOTO 513 

510 1 = 1+3: IF I < =549GQT0 493 

513 U=M : GOSUB 3*BEEP 5*WAIT s RESTORE 515sF0R C=3T0 I-540STEP 3 S RE AD 
X, Y s GOSUB 58 s NEXT C s GOTO 8 
515 DATA D, Z, E, MS, S, NL, FI , RX 
540 D=T,Z=X: GOTO 510 

543 E=T, MS=X, K=D, W=-l s IF 2>XLET W=1 

544 GOTO 555 

546 S=T , NL=X , K=E s GOTO 555 
549 F I =T , RX=X , K=S 
555 IF ABS (T-KK.3G0TÜ 493 
558 GOTO 510 

560 DATA MS+90-N, D, D f-M, C, DT-HL+PL-L, B, 90-MS-N, -Dx3, DT-NL-M, Cx5. 3, MS 
+NL+90— N , Dx? . 4 

561 DATA DT-P, F, BT-HL+PL-O, E, 2+BT-Z+2+PL-0, Ex7. 6 , -0, G, 2+DT-O, Ex 6 . 3 

562 DATA BT+2-HL-PL-D , E- S . 3 , 2-HL- PL— P , -Fx35 , 2-0 , 6x3 . ? , 283-MS-Q , G- 1 7 , 
DT— NL— P, —F ■'•‘27 

563 DATA 2+NL-Q, 6x12, 2+DT-HL+PL-R, H, 2+DT-S, I , DT-TE, J 

643 GOSUB 95 s INPUT “DePt: L<xt( D. M )-sl S ?* " s B, "Lon-sl E ?* " SC, "Arrlv* 
Lott?s “sE, "Lon?s " SH 

644 IF IM=2GÜ TO 647 

646 GOSUB 1 s LPR I NT "Déport. s “ sLPRINT "L"SBS ",G"SCsLPRINT "Arrivées": 
LPRINT “L" SES " , G" 5 H 

647 ZB*="D.Lox TOTAL" , 2D*=" Rte Dlst , LOXOs " s B=DEG B+.002,C=DEG C,E=DE 
G E,H=DEG H+.001 s GOTO 8 

656 S=Os GDSUB 8 1 s NA I T OspRINT ZD* * GOSUB 29 s GOSUB 26sGDSUB 7 s LPRINT 2 
D*s GOSUB 18: GOTO 8 

700 ZE*="RteDlst DRT, Utx" * NAIT OsPRINT 2E*:6=C-Hs GOSUB 64* J=G, W=-l , 0 
=E,L=Bs GDSUB 79:S=ACS X+60 

706 Z=— SGN G: GOSUB 26:U=ACS (ABS (SIN A+COS B ) )+SGN COS A,J=UsGOSUB 
35 s GX=M s Q=U s GOSUB 72 

708 IF IM=1LPRINT sLPRINT ZE** GOSUB 18: GOSUB 73 

715 S=Û, 6 =C-H: GDSUB 66 : GDSUB 81 : W=GX: J=U: ZE*="Pts. Por UERTEXs " : GOSU 

B 56: ■ ... 

717 U=H , Q=E : GOSUB 29s PRINT ZBSSS*60SUB 7sLF -IsLPRINT 2B$;S*GOTO 8 

725 S=Os INPUT "Lot LIMIT .?: " 5 Js J=DEG JsGDSUB 35 s K=G , U 1 =W , D=E , F=H : Z=- 
Z: GDSUB 71 

726 U=G, Z=— Z: ZE*="Lon9 sur L. Llmlt" : PRINT ZE*:PRINT "Gl"sDMS KS",G2" 

S DMS U 

727 IF IM=1LPRINT : LPR I NT "L; LIMITE* " S DMS J: LPRINT ZE$ S " s G" S DMS Kl " 

, G " S DMS U 

730 ZE*=“Pts. Par L. Limite" , G=K-Cs GOSUB 66 * I=B,T=C*W=UlsGDSUB 56 
732 U=K,Q=J: GDSUB 29 * G=U-K : GOSUB 64s I=Q+. 002 s GOSUB 30* G=H-U* GOSUB 67 
: I = ,T , T=U , W=0 s GOSUB 74 : GOTO 7 1 7 


74U IF CHR* PEEK &BÛÜ2< > " M " LE T IM=2* RETURN 
745 INPUT "ImPrlmer?: 1, si NON: 2* "5 IM* RETURN 

750 NAIT 0: FR INT "h TU Lever Coucher SOL. . . " s B«0: GOSUB 42 

751 IF ABS d >=90- ABS LWAIT SPRINT "ni Lever ni Coucher. .!" s RETURN 
752 . M= ( 1 2+ ( G+B SX 1 5 ) , P= ( ACS ( -TAN L+T AN O 1 )x 1 5+ . Q6x < SQR ( ( COS □ 1^2- ( S 

IN L .l s 2 ) ) * GOSUB 3 s WA I T 

754 PRINT "hTU Lev*"sDMS (W-P)s" Cou" 5 DMS ( W+P )s RETURN 
760 INPUT "hTU Obs( H. MS )ou* T( TIME )?: " S A*s IF A*="T"LET H=( TIME xlOO-I 
NT (TI ME x 1 00 ) j+ 1 00 : RETURN 
762 H=UAL A# s RETURN 

770 K=T+100+12. 3685:M=K-INT K* D=. 25x2* A*»"Nouve II e LUNE" 

772 IF M>DANB M< . 25+DLET A*=“ler Quartier" 

774 IF M>D+. 25AND M< . 5+DLET A$» "Pleine LUNE" 

776 IF M>. 5+DAND M<.75+DLET A*=" Dernier Quart." 

?78 NAIT OSPRINT "Phase LUNE* " s A*s RETURN 

1001 DATA 358.174,28.975 

1002 DATA 357.992,59.034 

1003 DATA 356.969,15.067 

1004 DATA 353.689,-42.42 

1005 DATA 350.172,56.423 

1006 DATA 349.365,18.101 

1007 DATA 346.143,60.602 

1008 DATA 342.862,35.509 

1009 DATA 335.766,-57.343 

1010 DATA 328.504,23.363 

1011 DATA 327.2,89.169 

1012 DATA 314.703,4.009 

1013 DATA 313.3,40.875 

1014 DATA 309.296,49.787 

1015 DATA 291.321,16.468 

1016 DATA 281.618,-8.224 

1017 DATA 281.216,45.977 

1018 DATA 279,6.331 

1019 DATA 278.76,28.59 

1020 DATA 276.208,-1.217 

1021 DATA 275.07,-1.957 

1022 DATA 271.492,7.404 

1023 DATA 270.504,44.946 

1024 DATA 264.07,-17.948 

1025 DATA 264.128,-52.682 

1026 DATA 260.885,16.418 

1027 DATA 258.944,-16.686 

1028 DATA 255.55,-28.941 

1029 DATA 253.11,-26.362 

1030 DATA 246.689,31.934 

1031 DATA 245.45,5.279 

1032 DATA 243.992,28.078 

1033 DATA 239.282,-39.945 

1034 DATA 237.78,-47.273 

1035 DATA 234.48,-59.441 

1036 DATA 228.97,-54.629 

1037 DATA 223.187,-43.347 

1038 DATA 221.758,-69.629 

1039 DATA 220.857,-59.185 

1040 DATA 218.362,-8.566 

1041 DATA 208.187, 12.07 

1042 DATA 194.86,56.495 

1043 DATA 194.391,61.86 

1044 DATA 191.753,20.639 

1045 DATA 183.005, 14.69 

1046 DATA 181.818,53.812 

1047 DATA 176.318,-17.423 

1048 DATA 173.657,-62.981 

1049 DATA 172.504,-56.994 

1050 DATA 169.91,-48.84 

1051 DATA 168.38,-59.573 

1052 DATA 166.725,56.074 

1053 DATA 159.234,55.0.36 

1054 DATA 158.98,-11.051 

1055 DATA 153.324,49.418 

1056 DATA 149.419,-60.272 

1057 DATA 148.641,-36.267 

1058 DATA 146.326,19.29 

1059 DATA 140.46,-60.749 

1060 DATA 137.317,74.241 

1061 DATA 126.554,26.785 

1062 DATA 112.972,-26.386 

1063 DATA 108.393,-68.991 

1064 DATA 107.807,-34.253 

1065 DATA 96.955,-37.089 

1066 DATA 96.511,12.574 

1067 DATA 90.971,51.493 

1068 DATA 84.306,-34.395 

1069 DATA 80.943,38.763 

1070 DATA 76.517,-26.322 

1071 DATA 62.561,8.813 

1072 DATA 54.634,40.189 

1073 DATA 54.001,-56.803 

1074 DATA 49.821,45.205 

1075 DATA 40.484,62.498 

1076 DATA 34.216,9.779 

1077 DATA 28.271,-47.064 

1078 DATA 19.646,-47 

1079 DATA 15.877,-29.734 

1080 DATA 14.308,27.97 

1081 DATA 14.071,15.092 
65279 END 


ASTUCES 

BASIC 

A C^IlVtwv 



Essayez ces 2 programmes : 

10 TIME=0:FOR N-5000T0 0:NEXT 
liPRINT TIME 

20 TIME=0:FOR N-50Û0T0 1:NEXT 

liPRINT TIME 

RUN 

0.0057 

0.0106 

Bizarrement, le PC 1 500 gagne 9 secondes en 
effectuant 1 boucle de plus. La raison vient du 


fait que le Basic possède un test spécial pour 
une fin de boucle ayant pour valeur 0 ; d'où 
gain assez considérable de temps. 

P. MATSIS 



Dans un programme Basic où la rapidité d'exé- 
cution est un facteur important, il est préféra- 
ble de séparer 2 assignations consécutives par 
une virgule au lieu de 2 points. L'interpréteur 
assimilera alors cette double assignation à une 
seule instruction et l'exécutera 2 fois plus vite. 




LANGAGE MACHINE 
(6) 

l!5 ROUTINE DE CALCULS 


Nous allons poursuivre celle 

irincipa 


Tout d'abord nous allons définir 
la notion de registre arithméti- 
les routines de traltemênt que, avant d'étudier une à une 
numérique ou alphabétique, les routines les plus utiles. 


(3 fois s'il y a 3 assignations). 

10 TIME =0 

20 FOR l=1T0 500 

30 A = 1 ;B = 1 ;A$ = "PC 1500" 

40 NEXT I: PRINT TIME 
Ce exemple de programme est exécuté 3 fois 
plus vite que le même programme muni de 2 
en ligne 30. 

E. BEAUREPAIRE 



L'instruction AREAD du Basic possède une par- 
ticularité qui n'est mentionnée dans aucun 
manuel : Elle peut être utilisée comme un 
POINT très puissant testant plusieurs colonnes 
simultanément (jusqu'à 40). En effet, si elle est 
appelée par un DEF alors qu'il y a un graphisme 
à l'écran, elle retourne dans A$ isi on fait 
AREAD A$) la forme des premières colonnes 
de l'écran en hexadécimal. Elle renverra l'état 
de 8 colonnes dans A$ puisque A$ contient 1 6 
caractères ; mais si on dimensionne une chaîne 
de 80 caractères (ex : A$(0)*80), on pourra 
tester 40 colonnes de l'afficheur ! 

Exemple : 

1 0 CLS:WAIT :GPRINT"01 0204081 020407F" 
20 "A"AREADA$:PRINTA$ 

Faites RUN puis appelez AREAD par DEF A ; 
le PC affiche le contenu de A$, c'est-à-dire la 
forme graphique qui était sur les 8 premières 
colonnes de l'écran : 010204081020407F 
La seulle limitation à cet emploi inatendu de 
AREAD est qu'on ne peut l'appeler autrement 
que par DEF. On peut cependant imaginer des 
applications telles qu'un stockage immédiat 
d'un dessin sur l'écran dans A$(0) en faisant 
DEF A. 


E.B. 



Le fait de pouvoir merger des programmes per- 
met d'en écrire plusieurs en mémoire sans avoir 
à se soucier des numéros de lignes. Cette opé- 
ration n'est, en temps normal, possible qu'avec 
un CE 1 50. Si vous n'en disposez pas, voici 
comment faire : 

Soit un programme en mémoire : 

POKE &734E,PEEK&7865,PEEK&7866 
NEW STATUS 2 

Tapez le second programme puis : 
POKE&7865,PEEK&734E,PEEK&734F 
Vous pouvez répéter cette opération à volonté 
pour merger plusieurs programmes successifs 
en mémoire. 

M. MENU 


LES REGISTRES ARITHMETIQUES : 

Ces registres sont utilisés de manière interne 
pour le traitement des opérations, aussi bien 
sur des chaines que sur des nombres. Il occu- 
pent chacun huit octets et sont comparables 
aux registres statiques A-Z, dans le sens où ils 
ont presque le même comportement. 

Ces registres sont stockés en RAM SYSTEM, 
comme suit : 

7A00 registre Xa 
7A08 registre Za 
7A10 registre Ya 
7A18 registre Ua 
7A20 registre Va 
7A28 registre Wa 
7A30 registre Sa 

Les registres Xa et Ya sont les plus importants, 
ceux qui contiendront les opérandes des dif- 
férentes opérations, les autres registres sont 
utilisés par les calculs intermédiaires. 

Un registre arithmétique peut représenter trois 
types d'informations, selon la valeur du 5ème 
octets, que l'on appellera caractéristique du 
registre. 

□ □□□CDGD 

1 2 3 4 5 6 7 8 

Du fait de l'équivalence entre les registres arith- 
métiques et statiques, nous utiliserons pour nos 
exemples ces derniers et en particulier la varia- 
ble A qui commence en RAM en &7900. Pour- 
quoi ? : car les registres arithmétiques sont tou- 
jours sollicités pour le stockage d'arguments, 
pour les calculs... ce qui les rend du point de 
vue du BASIC extrêmement instables. Par 
exemple lorsque vous frappez au clavier : STR$ 
(10+15) « ENTER », le registre arithmétique 
Xa va contenir successivement : le nombre 1 5 
puis le nombre 25 et enfin la chaine « 25 ». 


REPRESENTATION D'UN NOMBRE EN 
FLOTTANT : 

Quand on a c<&B2, le registre contiendra un 
nombre flottant comprit entre - 9.999999999 
E99 et +9.999999999 E99 
Ce nombre sera codé sur 8 octets de la manière 
suivante : 







1 1— signe Lu-mantisse L*-00 

-►EXPOSANT 


L'exposant est exprimé sur 8 bits signés donc 
entre - 1 28 et + 1 27. Quand on quitte l'inter- 
valle ( - 99, + 99) l'exposant est tronqué à l'af- 
fichage mais pas dans les calculs. Par exem- 
ple frappez A = 1 puis POKE & 7900, 127. 
tapez alors A < ENTER > il s'affiche 1 El 2, 
mais LOG A donne 127 : A contenait bien 1 
E 127. 

Le second octet donne le signe de la mantisse : 
si sa valeur est 00, le nombre sera positif, et 
négatif si sa valeur est 80. 

La mantisse est codée en DCB sur 5 octets, 
capable donc de donner 10 chiffres significa- 
tifs. Le dernier octets appartient aussi à la man- 
tisse et nous apparaît comme nul. En fait il est 
utilisé pour les calculs internes qui se font sur 
1 2 chiffres significatifs. Ici aussi on peut obte- 
nir des résultats curieux en ne respectant pas 
les règles du DCB. Par exemple tapez : 

A=0, POKE & 7900, 1, 0, 255 puis A 
< ENTER > il s'affiche « ?? », qui représente 
le nombre 1 65, on peut le vérifier en frappant 

A*1. 








4A00 

LDIC 

00 


BEF73F 

SJP 

F73F 

Charge Xa avec le contenu de A 

4A08 

LDIC 

08 

BC pointe sur la variable statique B 

BEF717 

SJP 

F717 

Charge Ya avec le contenu de B 

B506 

LDI A 

06 

test Xa supérieur ou égal à Ya 

BED0D2 

SJP 

DOD2 

appelle la routine de test 

5879 

LDI D 

79 

DE pointe sur la variable C 

5A10 

LDIE 

10 

4879 

LDI B 

79 

BC pointe sur la variable A 

4A00 

LDIC 

00 


8902 

BZR 

+02 

si le test est vrai, A> =B, on exécute le saut 

4A08 

LDIC 

08 

sinon BC pointe sur la variable B 

BEF741 

SJP 

F741 

(DE)=(BC), C=A si A> =B sinon C=B 

9A 

RTN 


retour en BASIC. 


COMPARAISON ALPHABETIQUE : 

Les deux chaines sont stockées dans les registres Xa et Ya. Le type de la comparaison est stocké 
dans l'accumulateur comme pour une comparaison numérique. L'adresse de la routine est cette 
fois-ci DOF9. Au retour le registre Xa et le flag Z donnent les mêmes informations que lors des 
comparaisons numériques. 

COMPARAISON A ZERO : 

Quand le registre est formaté, si le troisième octet du registre a pour valeur 0, alors le registre 
est nul. Vous pouvez le vérifier en tappant A=0, puis PEEK & 7902. 

Par exemple comparer Xa à zéro est équivalent à : CP (&7A02), 0. On aura Z = 1 si Xa = 0 et Z = 0 
autrement. 


OPERATIONS SUR LES R.A: 

Ici aussi pour chaque opération est donnée 
l'adresse d'entrée, le numéro de la MACRO- 
instruction si elle existe et les registres arith- 
métiques modifiés lors des calculs intermédiai- 
res. Vous constaterez que le registre S est rare- 
ment modifié, et pourra donc contenir vos pro- 
pres intermédiaires. 

OPERATIONS DIADIQUES : 


Xa=Xa+Ya EFBA 
Xa=Xa-Ya EFB6 
Xa=Xa*Ya FOI A 
Xa=Xa/Ya F084 
Xa=Ya/Xa F082 
Xa=Xa A Ya F89C 


FO pas de registres 
modifiés 

pas de registres 
modifiés 

pas de registres 
modifiés 

58 S et W non 
modifiés 

S et W non 
modifiés 

tous les registres 
sont modifiés 

JES: 

U, V, W et S non 
modifiés 

Y=X et S non 
modifié 

Y=XetW, Snon 
modifiés 


Xa=LNXa 

F161 

Xa=LOGXa 

F165 

X 

CD 

II 

m 

X 

-o 

X 

CD 

F1CB 

Xa= 10 Xa F1D4 

Xa=SINXa 

F3A2 

Xa=COSXa 

F391 

Xa=TANXa 

F39E 

Xa=ASNXa 

F49A 

Xa=ACSXa 

F492 

Xa=ATNXa 

F496 

Xa=DEGXa 

F531 

CO 

X 

CO 

O 

II 

CO 

X 

F 564 

Xa=ABSXa 

F597 

Xa=SGNXa 

F59D 

Xa = INTXa 

F5BE 


W=0 et S non 
modifié 

W=0 et S non 
modifié 

W=0 et S non 
modifié 

W=0 et S non 
modifié 

tous les registres 
sont modifiés 
tous les registres 
sont modifiés 
W=0 et S non 
modifié 

W=0 et S non 
modifié 

W=0 et S non 
modifié 

Z=0 et S non 
modifié 

W non modifié 

tous les registres 
sont modifiés 
aucun registre 
modifié 

aucun registre 
modifié 

seul Y est modifié, 
Y = FRAC Xa 


OPERATIONS MONOADIÛUES : 
Xa=SQR(Xa) FOE9 


Xa=Xa 2 FOE9 x 
Xa = 1 /Xa F080 6E 


Xa=RNDXa F5DD tous les registres 
sont modifiés 

Si un calcul conduit à un dépassement de capa- 
cité ou à une erreur, le flag C (carry) prend la 
valeur 1 et le registre du microprocesseur UH 
contient le numéro de l'erreur. En ce qui con- 
cerne les registres du microprocesseur, ils sont 
tous modifiés et l'on a B=7A et D=7A. 

Lors de l'éxécution de ces opérations, tous les 
résultats se trouvent dans le registre arithmé- 
tique Xa et sont généralement normalisés. 
Dans le cas contraire il faut utiliser la macro 
D8 pour normaliser Xa. Mais je vous dois quel- 
ques explications sur le problème de 
normalisation : 

Quand l'ordinateur effectue les calculs, la plu- 
part du temps par l'intermédiaire de décalages, 
le résultat, n'est pas forcément conforme à la 
représentation interne des nombres, telle je 
vous l'ai décrite au premier chapitre. Par exem- 
ple au bon format interne : 0.123457 E21. 

OPERATIONS SUR LES CHAINES DE 
CARACTERES : 

On peut distinguer trois types d'opérations : 

• Xa contient un nombre, le résultat est une 
chaine 

• Xa contient une chaine, le résultat est un 
nombre 

• on transforme une chaine en une autre chaine 

1" CAS : 

notez qu'il faut que (7894) contienne la valeur 

10 hexa. Xa pointe la chaine résultat, qui se 
trouve dans le buffer de chaine à partir de 
l'adresse &7B10. 

Xa$=CHR$ Xa D9B1 
Xa$=STR$ Xa D9CF 

2 e CAS : 

Xa pointe sur une chaine, le résultat est un 
nombre 

Xa=VAL Xa$ D9D7 
Xa =LEN Xa$ D9DDattention YL doit valoir 
64 HEXA 

Xa = ASC Xa $ D 9DDattention YL doit valoir 
60 HEXA 

3' CAS : 

C'est le plus compliqué, simulant la fonction 
LETF$, RIGHTS et MID$ 

11 faut tout d'abord utiliser un speudo registre 
arithmétique qui pointera la chaine à traiter. Ce 
registre sera placé dans le bluffer BASIC à la 
suite de la pile des boucles FOR-NEXT. Pour 
connaître l'adresse de la fin de cette pile, on 
utilise la valeur du pointeur (&7890) : 



@= Adresse = &7A00 + (&7890). De@ à 
@+7 on aura notre pseudo-registre 
arithmétique. 

Le ou les paramètres numériques sont stockés 
dans les registres arithmétiques Xa, Ya. Après 
éxécution le registre Xa pointe la chaine 
résultat. 

7A HEXA 

Xa$=LEFT$( $, Xa) D9F3YL doit valoir 

7A HEXA 

Xa$=RIGHT$( $, Xa) D9F3YL doit valoir 

02 HEXA 

Xa§ = M!D$( $, Xa, Ya) D9F3 YL doit valoir 

7B HEXA 

Voilà, j'espère qu'à partir de tous ces rensei- 
gnements vous pourrez facilement exécuter 
des opérations à partir du langage machine. 

Notez que pour les routines de traitement 
alphabétique les gains de temps sont moins 
spectaculaires que pour les routines de traite- 
ment alphabétique, surtout lors de l'appel des 
fonctions transcendantes. 

Pascal ABRIVARD 







relogeur BIDI LIST DE M. FOJUD 
(c) 1985 

Tapez le programme BIDI du bulletin n° 13 à une adresse quelconque, 

Entrez ce programme, faites RUN, tapez l'adresse à laquelle est implanté 
Le programme original et ENTER, et après quelques secondes la transformation 
est faite, vous pouvez utiliser ce programme par CALL (1 re adresse). 

Il ne faut utiliser ce relogeur qu'une fois sous peine de plantage. 


100 INPUT "ADRESSE";A :D = A - 
110 B=&5F5D+D:GOSUB 300:POKE A + 1 3,H,L:POKE A + 278,H,L:POKE A + 598, H, L 
1 20 B = &5FD8 + D:G0SUB 300:P0KE A + 1 67,H,L,:POKE A + 368,H,L:POKE A + 469,H,L:POKE 
A + 528, H, L : POKE A +673, H, L 

130 B=&5FAB+D:GOSUB 300:POKE A + 179,H,L:POKE A + 339,H,L 
1 40 B = &5F04 + D:GOSUB 300:POKE A + 210,H,L 

1 50 B = &5FB7 +D:GOSUB 300:POKE A + 275,H,L:POKE A + 291 ,H,L:POKE A + 326,H,L:POKE 
A +499, H, L 

1 60 POKE A + 587,H,L:POKE A + 650, H, L 

170 B = &5F97+D:GOSUB 300:POKE A+307,H,L:POKE A+617,H,L 

180 B=&5F7D+D:GOSUB 300:POKE A + 375,H,L:POKE A + 509, H, L 

190 B=&5D01 +D:GOSUB 300:POKE a + 610,H,L 

200 B=&5D9B+D:GOSUB 300:POKE A+484,H,L 

210 END 

300 H=B/256:L=BAND &FF:RETURN 


n 



HfSf 

te ^ 

t 


ERRATA PC 1500 


Nous nous sommes aperçus d'une erreur fla- 
grante mais qui nous avait échappée jusqu'à 
présent. Les If ont été oubliés dans la 
deuxième table des instructions ; n° 10, page 
16. Il faut en mettre avant les parenthèses 
ouvrantes et seulement celles-ci. 

Ex : case 01 table 2 SBC (X) devient SBC If (X) 
mais case 4-1 table 2 SIN X reste SIN X 
De plus, case 98, c'est bien sûr un LOP UL et 
non VL ce qui n'aurait aucun sens : VL, valant 
toujours 00. 

On peut signaler aussi que les nouveaux codes 
prennent exactement le même nombre cycles 


que les anciens : exemple 

table 1 case 00 SBC XL codé 00 : 6 cycles 

table 2 case 00 SBC XL codé FDOO : 6 cycles 

La première valeur est donnée par le "Techni- 
cal reference manual", la seconde est calcu- 
lée expérimentalement. 



GESTION DU 


Comme promis, nous allons voir 
celte fois ce que fait exactement la 
routine E42C, puis ses erreurs et 
un programme créant un super 

DESASSEMBLAGE 
DE LA ROUTINE E4 2C. 

La routine E42C se sert d'une table de conver- 
sion se trouvant en ROM. Elle se situe aux 
adresses &FE80 à &FEBF. 

Cette table contient les codes ASCII des tou- 
ches classées dans l'ordre PA croissant, IN 
décroissant. 

Voir liste 3 
rappel figure 1 

Il est bien sûr indispensable pour saisir cet arti- 
cle de lire le premier concernant la gestion du 
clavier (Bulletin n° 11). 

EXPLICATION 

INSTRUCTION PAR INSTRUCTION : 

voir liste 4. 

E42C : On met dans XI le poids faible du pre- 
mier octet de la table de correspondance. XI 
sera incrémenté au fur et à mesure de la 
recherche. 

E42E : A va servir pour la routine de scruta- 
tion, au début A = 1 donc on commence à tes- 
ter PAO. 

E430 : On le sauve dans Xh car A est modifié 
par la routine E41 A, ainsi on sait toujours à quel 
niveau d'exploration on se trouve. 

E431 : Lecture clavier par bloc de 8 touches 
suivant A. 

E434 : Si Z = 1 , c'est qu'aucune touche pour 
ce PA n'a été appuyée, on va donc tester le 
bloc PA suivant. 

E436: C=0 pour l'addition, on fera donc 
A=X!+A+C = A=XI+A 
E437 : A =8, on incrémente XI de 8, XI poin- 
tant sur la table de 

E439 : Conversion, car on a aucune touche 
appuyée pour ce PA, l'exploration continue 
avec le PA suivant, donc 8 touches plus loin, 
puisqu'un PA teste 8 touches : INO à IN7 
E43A : On remet dans XI le résultat pour obte- 
nir un suivi sur le tableau de correspondance. 




CUVIER (2) 


Inkey, qui sortira toutes les tou- 
ches appyées, plus quelques utili- 
taires touchant au clavier. 


E43B : On a sauvé dans Xh le numéro de l'ex- 
ploration des PA, on le reprend dans A pour 
passer au suivant. 

E43C : Fait un décalage vers la gauche d'un 
bit. A pointait le numéro de l'exploration, il poin- 
tera donc le suivant. Dans C, on retrouve le bit 
7 de A. 

E43D : Si le carry = 1 , A valait &80, le 7 e bit 
était allumé, les 8 bits ont déjà été testés, 
aucune touche n'est appuyée, on se branche 
en E441, qui se charge d'indiquer qu'aucune 
touche n'est appuyée. 

E43F : Z = 1 si A = 0, donc si l'exploration est 
terminée. 

Ce test est stupide, car si le programme vient 
là, c'est que C =0 donc l'exploration n'est pas 
finie. 

Il aurait été plus judicieux de mettre : 

E43D : BCR E 430 
E43F . NOP 
E440 : NOP 

ou même de supprimer les NOP d'où un gain 
de 2 octets. 

E441 : Le programme vient ici si aucune tou- 
che n'est appuyée, A=0, soit le code ASCII 
de NUL. Le carry est à 1 à cause du SLA. Un 
LDA VI gagne un octet. 

E443 : Retour à l'appel. 

E444 : Le programme vient ici s'il a détecté une 
touche appuyée. 

On a dans XI le poids faible de l'adresse où en 
est l'exploration sur le tableau de correspon- 
dance ; dans A, on a la correspondance de IN. 
A est forcément différent de zéro. On va recher- 
cher le premier bit allumé de A en partant de 
la gauche, d'où le SLA, C prend la valeur du 
bit 7 et A est décalé vers la gauche. 

E445 : Si le carry est à un donc si on a trouvé 
la touche appuyée, on va en E44C prendre le 
code ASCII de la touche d'après le tableau de 
correspondance. 

E447 : On incrémente la position du tableau de 



correspondance car on va tester le bit suivant. 
E448 : Le programme teste si XI <%FF, on 
traite le bit suivant. 

E44A : Si XI =&FF on met A à 0. Ce test est 
de nouveau stupide car si XI=&FF c'est 
qu'aucun bit n'est allumé, or s'il vient là, c'est 
qu'il y en a au moins 1 . On aurait dû faire : 
E448 : JR E444 
E44A : NOP 
E44B : NOP 

D'où un gain de 2 octets (encore !}. 

E44C : On vient ici quand on a déterminé la tou- 
che appuyée. On a dans XI le poids faible de 
la position de la touche dans le tableau de cor- 
respondance. Le poids fort est mis dans Xh et 
vaut &FE. 

E44E : Dans A le code ASCII pris du tableau 
E44F : C=0 

E450 : Retour de l'appel. 

Soit donc en résumé, au retour : 

Si C = 1 , A = 0, pas de touches appuyées, 

UL=&FF 

X=&80C0 

A=&00 

UH et Y sont inchangés. 

Si C=0, A><0, une touche dont le code 
ASCII est dans A est appuyée 
UL = &FF 

X= adresse du code de A 
dans la table de correspondances 
Xh = &FE 

A = valeur en ASCII 

UH et Y sont inchangés. 

Voici pour les amateurs, la même routine sans 
parties stupides. Elle fait 30 octets, alors que 
l'original en occupe 37, soit un gain de 1 1,1%. 
Les 1 6 Ko de ROM seraient réduits en 1 4,2 Ko 
si le gain était proportionnel à la place mémoire. 
La nouvelle routine est relogeable. Liste 5. 
Pour finir, voici une astuce : si vous voulez dans 
A, non le code ASCII, mais le code ASCII 
"SHIFTE", sachez que la table de correspon- 
dance commence en &FEC0 et finit en &FEFF. 
Pour l'utiliser, faire donc : 

LDI XI, &CO indique que le tableau commence 
en &FECO SPJ &E42E saute le LDI XI, &80 du 
programme initial. 

Nous verrons la fois prochaine, le SUPER 
INKEY$ et les erreurs "physiques” du clavier. 

Marc GIRONDOT 

LISTE 3 


ADSSï 

Ph 

IN 

P K 

C 

F E 8 0 s 

PhD 

IN7 

OB 


FE8 1 s 

P80 

I N 6* 

4E 

N 


FE82S 
FE83: 
FE84 : 
F E 8 5 s 
F E 8 6 s 
F E87 s 
F E 8 8 s 
FE89: 
FE8A: 
FE8BS 
FE8CS 
FE8DS 
FE8E ï 
FE8F: 
FE90ï 
FE 9 1 s 
FE92s 


PAO 
PAO 
PAO 
PAC» 
PAO 
PAO 
P A 1 
P A 1 
PA 1 
P A 1 
PA 1 
P A 1 
P A 1 
PA 1 
PA2 
PA2 
PA2 


IN5 

IN4 

IN3 

IN2 

INI 

INO 

IN7 

I N 6 

IN5 

IN4 

I H 3 

I H 2 

INI 

INO 

I N 7 

IN e 

I N 5 


59 Y 
01 

48 H 
38 8 
35 5 
32 2 
09 

58 X 
57 U 

1 1 

53 S 
OF 

21 » - 
2E . 
30 O 
4 B M 
55 U 



FE93: 

PA2 

I N 4 

15 


FE94: 

PA2 

I N 3 

4 A 

J 

FE95: 

PA2 

I N 2 

37 

7 

FE96: 

P A 2 

INI 

34 

4 

FE97: 

P A2 

INO 

31 

1 

F E 9 © s 

P A 3 

I N 7 

OB 


FE99: 

P A3 

IN6 

28 

( 

FE9 A i 

P A3 

I N 5 

49 

I 

FE9B : 

F* A3 

I N 4 

1 S 


F E 9 C ï 

PA3 

IN3 

4B 

K 

FE9DS 

PA3 

I N 2 

4F 

□ 

FE9E: 

PA3 

INI 

4C 

L 

FE9FS 

P A3 

INO 

29 

*» 

FEAOï 

PA4 

IN7 

19 


FEAlî 

PA4 

INC 

43 

C 

FEA2: 

P A4 

IN5 

45 

E 

FE A3 s 

P A4 

IN4 

12 


FE A4 s 

P A4 

IN3 

44 

B 

FEA5: 

PA4 

I N 2 

2F 

/ 

FEA6 : 

PA4 

I N 1 

2A 


FEA7 s 

PA4 

INO 

2B 

+ 

FEA8s 

PAS 

IN7 

20 


FEA9 s 

PAS 

IN6 

56 

U 

FEAAî 

PAS 

IN5 

52 

R 

FEABï 

PAS 

IN4 

13 


FEAC: 

PA5 

IN3 

46 

F 

F E A B s 

PAS 

IN2 

50 

P 

FEAE: 

PAS 

INI 

08 


FEAFs 

PAS 

INO 

3D 

SS 

FEBOs 

PA6 

IN7 

02 


F E B 1 s 

PA6 

I N 6 

5A 

Z 

FEB2S 

PA6 

IN5 

51 

Q 

FEB3S 

PA6 

I N 4 

IB 


FEB4 : 

PA6 

IN3 

41 

A 

FEB5S 

PA6 

IN2 

18 


FEB6: 

PA6 

INI 

1F 


FEB7 : 

PA6 

INO 

OC 


FEB8S 

PA7 

IN7 

OA 


FEB9 s 

PA7 

IN6 

42 

B 

FEBAs 

PA7 

IN5 

54 

T 

FEBBs 

PAZ 

IN4 

14 


FEBCs 

PA7 

IN3 

47 

G 

FEBD: 

PA7 

IN2 

39 

9 

FEBEs 

PA7 

INI 

36 

6 

FEBF : 

PA7 

INO 

33 

3 


LISTE 4 


E4 2C: 

E42E 

E430 

E 43 1 

E 4 34 

E436 

E437 

E439 

E43A 

E43B 

E43C 

E43I» 

E43F 

E 44 1 

E443 

E 444 

E445 

E447 

E448 

E44A 

E44C 

E4 4E 

E44F 

E450 


LISTE 5 


4 OC 5 
4 O C 7 
4 OC 9 
40CA 
40CB 
40CF 
4GB0 
4 O D 2 
40B3 
40D4 
401» 5 
4GB6 
40D8 
40B9 
40BA 
40BB 
40DC 
40BE 
40EC* 
40E 1 
40E2 


LISTE 6 


lui 

lui 

STA 

SJP 

BZR 

REC 

LUI 

ABC 

STA 

LBA 

SHL 

BCS 

BZR 

LDI 

RT N 

SHL 

BCS 

INC 

BCR 

BCH 

LDI 

LBh 

REC 

RT N 


XL , &8C* 
A ? LOI 
XH 

&E41A 

+ &0E 11 

A » &08 
XL 
XL 
XH 

E 4 4 4 " 

+ &02 

'* E 4 4 1 

-&1 1 
A, 8.00 

“ E 4 3 C» 

+ €.-05 
XL 

" E 4 4 C 

~€:06 

" E444 1 

-&0B 
XH, &FE 
C X ) 

** E 4 4 1 


LDI XL » 6:7F 
LDI 

STA XH 

SJP &E41A 

B2R +&0B 'WODA" 

REC 

LDI A>S:08 
ADC XL 
STA XL 
LDA XH 
SHL 

BCR — &0F " 40C9 ' 

LDA UL 

RTN 

INC XL 

SHL 

BCR —fc04 " 40DA * 

LDI XH.ÊFE 

LDA (XJ 

REC 

RTN 


FEC4S 
F E C 5 : 
FEC6i 
FEC7 ! 
F E C: 8 s 
FEC9 ! 
FECA: 
F E C B ! 
F E C C s 
F E C D s 
FECE: 
FECF : 
FEDO: 
FED 1 : 
FED2 s 
FED3 ! 
FED4 : 
F E D 5 s 
FED6: 
FED?: 
FED8: 
F E D 9 : 
FEDA: 
FEDB : 
FEDC : 
FEDD : 
FEDE: 
FEDF : 
FEEO : 
FEE 1 : 
FEE2 : 
FEE3 : 
FEE4 : 
FEES: 
FEE6 : 
FEE? : 
FEES : 
FEE9 : 
FEEA : 
FEEB : 
FEEC : 
FEED: 
FEEE: 
FEEF: 
FEFO: 
FEF1 : 
FEF2 : 
FEF3 : 
FEF4 : 
FEF5 : 
FEF6: 
FEF7: 
FEF8: 
FEF9: 
FEFA : 
FEFB: 
FEFC : 
FEFD: 
FEFE : 
FEFF : 


ABSSs 

PA 

IN 

P K 

C 

FECO: 

PAO 

IN7 

5B 

C 

FEC 1 i 

PAO 

IN6 

6E 

n 

F E C 2 5 

PAO 

IN5 

79 

y 

FEC3s 

PAO 

IN4 

01 



PAO IN3 68 h 
PAO IN2 38 8 
FAO INI 35 5 
PAO INO 32 2 
P A 1 IN? 09 
FAI I N6 78 x 
PA 1 INS 77 w 
PA 1 IN4 21 ! 

PA1 IN3 73 s 
P A 1 IN2 OF 
FAI INI 2C , 
P A 1 INO 2E . 
F'A2 IN7 30 O 
PA2 IN6 6D m 
PA2 INS 75 u 
PA2 IN4 25 % 
PA2 IN3 6A ,i 
PA2 IN2 37 7 
PA2 INI 34 4 
PA2 INO 31 1 

F' A3 IN7 OD 
P A3 IN6 3C < 
PAS INS 69 t 
PA3 IN4 26 & 
F' A3 1N3 6B l< 
PA3 I N 2 6F o 
PAS. INI 6C I 
PAS INO 3E > 
F'A4 IN7 19 
PA4 IN6 63 c 
PA4 IN5 65 e 
PA4 IN4 22 " 
PA4 IN3 64 d 
PA4 IN2 3F ? 
PA4 INI 3A : 
PA4 INO 3B S 
PA5 IN7 SE ~ 
PAS IN6 76 v 
PAS IN5 72 r 
PA5 IN4 23 # 
PAS IN3 66 F 
PAS IN2 70 P 
PAS INI 1D 
PAS INO 40 9 
PA6 IN7 02 
PA6 IN6 7A 2 
PA6 IN5 71 A 
PA6 I N4 1 B 
PA6 IN3 61 o 
PA6 IN2 IA 
PA6 INI 1E 
PA6 INO IC 
PA7 IN? SD 3 
PA7 IN6 62 b 
PA7 INS 74 t 
PA7 IN4 24 # 
PA7 IN3 67 9 
PA7 IN2 39 9 
PA7 INI 36 6 
PA7 INO 33 3 



DEVELOPPEMENTS LIMITES 


Mode d'emploi • 
Tapez RUAI 


G(FOO>* 

“.T 0 ?: i, 

-•“sin'- data eff, e.-^ 
6» 0» 1^120, 0 ‘ 1 
4! ; E f: «ata i,i ( . 5fl/ 

e.v’ r ! /24,1/ 120, 1/720 

5 * tm+x)* data i, ?.. 

1/8,1^, . 5/12 "£ 

6> -6^/2816 
6! !!^ V DAT A 

^56 , ~i' 1 * , " 5/12S, -T 

•256,-63/2816 

":ïï%r sm 

9>;LN<h X )- e>1( . 

* ‘ ,1/ ï»-i/ 4,1/3,- 1/ 
MTfl 

-iM’' 1 ' 4 ’'" 4 - 1 '*. 

J STn 

^2* CH DATA 1,0,1/-?, g 
,, ^24,0,1/720 ’ 

* 5Î 'ACS' 1 DATA sir , « 

0,e I,e ’ 

14! ’fr e,f , 0>1/6 

» 0,3/40,0 ■ 

15 **JT BATA 0,i, 0fl/3 

„ 8 «»2/15,0,0 0,1/3 

40:iNPUT "ORno,/-^ 


DATAS Z !“ * S1ls «mm dans las 

v. RAVELOMAAIATSOA. 


41: i«r T V?*; H$Ï 

JfSTORE W$: FOR r-a 

HFy? : T ? EAD V(I)! 

NE..T I: GOTO 45 

«T"" H. W 

„ / ,UI > : NEXT I 
43.-INPUT ’DATA U?-|H*. 

Tn S w° RE W$! F0R T a ® 
To N: READ U(I>: 

NEXT I s goto 46 

•S'um™ N! »dt 

Le 

48 Jars;?’ 40 ”'* 

48: FOR Js0 TQ * 

49*F0R > r U<J>! NEXT J ;_ 
49. FOR I=i T0 N; 

f Dî NE *T J: NEXr 

50 SFOR I= 0 to H , 

® TO I:R<i)«0(jj + g. . 
'I>*V<2>: N EXT J- 
NEXT I J# 

“’V-VCR ?1* 2 t ™ 88 

pno t « I “® TO N: 

E °' *? ™ N-1=S(N,, 
ucv^’, 0 8a ’ I>I 

£t J ? ! NEXr J! 

70! o O TVr:;-°. N! ™ > 


IF «<*N THEN 
80îFOR K=0 TO N:G»Rrn* 

EF? ?îjfî?. ! pf? INT ’' ; cÔ 

NEH-T K.* “enb" /V?Eî 

*11* ****** end ***** 

800.* ;Z» AREAD G:H=G:i= 
^NT H:a=1îb =I:])=0 b 

AÊTIÎR? -1 - 0 PRIN ' 6. 
903îH= 1/( H - DîI= int 

=B* I +a s a=b : g=c . F ' 

i + -cïr E ; E ; F : IF aes < 

* 8 :«Iw"i£?,, I ! B ' 583 

RETURN 


\gm_ 

UTILITAIRES GRAPHIQUES 


Ces quatres petits programmes 
en LM destinés aux PC 
1251/55/45 agrémenteront 
sans aucun doute vos utilitaires 
et jeux préférés par un affichage 
original. 


Les trois premiers sont relogeables alors que 
le dernier demande des modifications faciles 
et pour être transplantés (adresse du tampon 
de l'afficheur). On peut les rentrer à l'aide, par 
exemple, du moniteur paru dans le numéro 8 
ou bien celui paru dans le numéro 1 2. Le « pgm 
5 » est un programme d'essai permettant de 
juger du résultat. Vérifiez bien vos codes machi- 
nes avant de l'exécuter. Dans le cas du PC 
1 245 n'oubliez pas que son afficheur étant plus 


court que celui des PC 1 251 /55, il faut adap- 
ter en conséquence ces routines. Voici main- 
tenant une brève descriptions de celles-ci : 

Programme 1 

permet de faire défiler l'afficheur de droite à 
gauche. 

Faire WAIT nn puis PRINT « TEXTE » et CALL 
& C000 (ou adresse de relocation) dans un pro- 
gramme Basic. 

En &C03C et &C03F se trouvent les paramè- 
tres de la boucle d'attente. 

Programme 2 

effectue un « scrolling » vertical ; de bas en 
haut. 

Faire WAIT nn : PRINT « TEXTE » et CALL & 
C045. 

&C06D et &C070 sont les paramètres de la 
boucle de temporisation. 


Programme 3 

défilement central : compression vers le centre. 
WAIT nn : PRINT « TEXTE » : CALL &C076 
&C'09C et &C09F : paramètres d'attente. 

Programme 4 

ceci est inédit et permet d'afficher un texte 
d'une... Mais regardez plutôt. 

WAIT 0 : PRINT « TEXTE » : CALL &C130 
On modifie la durée de la boucle d'attente par 
un changement des valeurs en &C189 et 
&C18C. 

Note : On utilise la Ram qui va de &C0B0 à 
&C12B comme buffer d'afficheur ; il faut en 
tenir compte pour reloger cette routine vers 
laquelle va ma préférence. 

En plus des Dumps (pgm 6 et pgm7), vous pou- 
vez étudier les désassemblages qui sont com- 
mentés. Voilà vous savez presque tout, il ne 
vous reste plus qu'à épater les autres cristaux 
liquides moins chanceux. 

C. WOLFHUGEL. 


pgm 1 


C000 

82 

L I H 


C902 

34 

?!J$H 


w v h.' 

!" i 

CAL 1 

1EÔ 

f ût h =: 
L V V w 

10 

LIBP 

F808 

C008 

57 

LBB 


CSS 9 

Bh 

EX A B 


C00A 

82 

LIA 

F 8 

C00C 

85 

LP05 


C00B 

B 3 

EX AM 


C00E 

02 

LIA 

80 

ce 10 

84 

LF84 


C011 

BB 

EXAM 


0012 

82 

LIA 

n 

C 014 

87 

LP 07 


C 0 1 5 

BB 

EXAM 


LSI 6 

02 

LIA 

PF 

CS 18 

86 

LP 86 


C 019 

B B 

EXAM 


C81A 

82 

LIA 

3A 

C01C 

34 

P Ü S H 


C013 

24 

IXl 


ce i e 

26 

I Y S 


C01F 

2F 

LG 3 P 

63 <> 

C021 

11 

LIBL 

7B 


C023 57 LBB 
C024 il LIDL 
C026 52 STB 


B = caractère à l'extrême gauche 


X = &F800 


Y = &F7FF 


On décale les 12 premiers caractères 


0029 34 

LP04 


X 

ii 

-n 

oo 

CD 

C02A BB 

EXAM 



C02B 32 

LIA 

7C 


C02B 36 

LP06 


Y = &F87C 

C02E BB 

EXAM 



002F 02 

LIA 

3A 


C02i 34 

PUSH 



C932 25 

BXl 


Décalage les 12 derniers caractères 

0333 27 

BYS 


0034 2F 

L0OP 

03 <C032> 


0036 10 

LIBP 

F840 


0039 DA 

EXAE 


B va à droite 

C03A 52 

STB 



C03B 02 

LIA 

28 


C03B 34 

PUSH 



C03E 4E 

HAIT 

FF 

Boucle d'attente 

0040 2F 

LOOP 

03 (C03E) 


0042 2F 

LQOP 

3E (C005) 


0044 37 

RTN 




3 B 


Décalage d'un bord 




pgm 2 


C845 

Fl 

CAL 1 

1E0 



C047 

82 

LIA 

88 



C04.9 

34 

RUSH' 




C84A 

82 

LIA 

3B 



C04C 

34 

RUSH 




C84B 

02 

LIA 

F7 



C04 c 

85 

LP 05 




C058 

D B 

EXAM 




0051 

82 

LIA 

FF 


X = Y = &F7FF 

Ü853 

84 

LP04 



C054 

B 3 

EXAM 




C855 

Fl 

cal i 

177 



C057 

24 

IXL 




C85S 

DI 

RC 




C859 

T; •“ 

SR 




C85A 

26 

I Y S 



Décalage 12 caractères 

C85B 

2 F 

LO OP 

85 

(C057) 


C05B 

04 

IX 




C05E 

04 

I X 




C85F 

84 

I X 




C868 

84 

T y 




C86: 

F 1 

CAL 1 

1 77 



C863 

82 

lIA 

3B 



C865 

34 

f ü S H 




0866 

24 

_ X L 




C 8 6 7 

Dl 

RC 




0868 

B 2 

SR 



1 2 derniers caractères 

C869 

26 

I Y S 




C86A 

2F 

LOÜP 

85 

(C866) 


C06C 

82 

LIA 

A0 


1 er paramètre d'attente 

C86E 

34 

PUSH 




C86F 

4E 

NAIT 

FF 


2 e paramètre d'attente 

C 071 

2F 

LOOP 

83 

(C86F) 


C873 

2F 

LOOP 

2A 

(C84A) 


0875 

*i jf 

RÏN 





P9 r 

n < 

J 


C076 

Fl 

L A L 

11E0 

C078 

02 

LIA 

30 

C07A 

34 

PUSH 


C073 

82 

LIA 

F 8 

CÔ7B 

85 

LP85 


C07E 

BB 

EX AM 


C07F 

82 

LIA 

3B 

C 8 8 1 

84 

LP84 


C082 

BB 

EX AM 


C083 

Fl 

CAL 

1177 

C085 

86 

IY 


C086 

82 

LIA 

3A 

C088 

34 

PUSH 


C089 

25 

BXL 


C08A 

27 

BYS 


C08B 

2F 

LOOP 

@3 

C88D 

82 

LIA 

70 

C88F 

86 

LP86 


C098 

BB 

EX AM 


C091 

Fl 

CAL 

1172 

C093 

85 

BX 


C094 

02 

LIA 

3A 

C096 

34 

PUSH 


C097 

25 

BXL 



X = &F83B 

Y = &F83C 

Décalage 

CC089) 

Y = &F87C 
x = &F87B 

Décalage 


C098 

27 

BYS 


0099 

2F 

LOOP 

83 (0097) 

C09B 

■02 

LIA 

38 

C09B 

34 

PUSH 


C89E 

4E 

NAIT 

FF 

C0A0 

2F 

LOOP 

83 (C09E) 

00 A 2 

10 

LIBP 

F808 

C8A5 

82 

LIA 

08 

C0A7 

52 

STB 


C0A8 

il 

LIBL 

48 

C0AA 

52 

STB 


C0AB 

2F 

LOOP 

31 (C87B) 

C0AD 

37 

RTN 



pg^ 



Cl 38 

Fl 

Cal 1 

1E0 

Cl 32 

82 

LIA . 

F7 

C134 

85 

LP85 


C 1 35 

BB 

EXhM 


Cl 36 

82 

LIA 

FF 

Cl 38 

84 

_ r 8 4 


0139 

BB 

EX AM 


C13A 

82 

LIA 

C0 

0130 

87 

LP87 


C13D 

BB 

EXAM 


C13E 

82 

LIA 

AF 

0148 

86 

LP86 


0141 

BB 

EXAM 


Cl 42 

82 

LIA 

7B 

C 144 

34 

PUSH 


0145 

24 

I XL 


0146 

26 

IYS 


Cl 47 

2F 

! nn D 

83 

Cl 49 

Fl 

CAL 1177 

C14B 

86 

IY 


CUC 

02 

LIA 

3 B 

C14E 

34 

PUSH 


Cl 4F 

82 

LIA 

00 

0151 

27 

BYS 


Cl 52 

2F 

LOOP 

82 

0154 

82 

LIA 

3 B 

C 156 

34 

PUSH 


0157 

87 

3 Y 


0158 

87 

B Y 


Cl 59 

87 

B Y 


C 1 5 A 

07 

BY 


C 1 5 B 

82 

LIA 

80 

C15B 

Â. i‘ 

BYS 


C 1 5 E 

2F 

LOOP 

82 

Cl 68 

82 

LIA 

98 

Cl 62 

34 

PUSH 


Cl 63 

82 

LIA 

08 

0165 

85 

LP85 


0166 

BB 

EXAM 


U 167 

82 

LIA 

AF 

0169 

84 

LP84 


C16A 

BB 

EXAM 


016B 

82 

LIA 

F7 

C16B 

87 

LP07 


016E 

B B 

EXAM 


Cl 6F 

82 

LIA 

FF. 

0171 

86 

LP86 


0172 

BB 

EXAM 


0173 

82 

LIA 

7B 

0175 

34 

PUSH 

i 

0176 

A8 

LP28 


0177 

24 

IXL 


0178 

BB 

EXAM 


61?9 

Fl 

CAL 1 

195 


Boucle d'attente 


X = &F7FF 


Y = &C0AF 


Sauve afficheur de &C0B0 à &C12B 


Vide l'affichage 


Boucle 


X = &C0AF 


Y-&F7FF 


Le caractère en Ram est-il égal 
à celui de l'afficheur ? 





*C 17 B 

Fl 

CAL 

1172 


Oui : ne rien faire 

Cl 71 » 

24 

IXL 



Non : Pincrémenter 

C 17 E 

A 0 

LP 28 




C 1 7 F 

C 7 

CPMA 




Cl 88 

38 

JRZP 

02 

OC 183 } 


Cl 82 

42 

INCA 




p 183 

26 

I V S 




C 184 

Fl 

CAL 

1195 



Cl 86 

2 F 

LOOP 

11 

OC 176 ) 


Cl 88 

02 

LIA 

10 . 



C 18 A 

34 

RUSH 




C 1 SB 

4 E 

WA 17 

FF 


Boucle d'attente 

C 18 D 

2 F 

LOOP 

03 

o:i 3 B> 


Cl 8 F 

2 F 

LOOP 

2 B 

(Cl 63 ) 


11191 

37 

RTN 






p<3 m 5 

1 ! 'PGM H ESSAI : DEF A 
5 ï PR INT "UTILITAIRES G 
R ARH I GUES! ! v : RETURN 
1 8 ! " A v WA II 123: GOSUB 
5: CALl SC 8 88 
15: GOSUB 5: CALL SC845 
28: GOSUB 5: CALL SC076 
25: WA II GOSUB 5: 

CALL SC 130 
38: END 


pg ^ 6 


Ü 880 

8277 

34 F 1 

E S 1 0 

F 388 

C 003 

57 DA 

02 F 8 

85 D 3 

0288 

C 0 1 8 

84 BB 

02 F 7 

87 BB 

82 FF 

c 0 1 s 

8 6 DE 

023 A 

3424 

262 F 

C 828 

8311 

7 B 57 

113 B 

5202 

C 823 

7 B 84 

BB 02 

7 C 86 

BE 82 

ce 38 

3 A 34 

2527 

2 F 83 

18 F 8 

C 8 38 

48 DA 

5282 . 

2834 

4 EFF 

C 048 

2 F 83 

2 F 3 E 

77 c 1 

E 302 

C 04 S 

8834 

823 B 

3482 

F 785 

C 858 

DB 02 

FF 84 

BEF! 

7724 

C 8 53 

D 1 D 2 

262 F 

8504 

0484 

C 868 

04 F 1 

7732 

3 B 34 

24 B 1 

£863 

B 226 

2 F 85 

82 A 0 

344 E 

£078 

FF 2 F 

032 F 

2 A 37 

F 1 E 0 

C 87 S 

023 C 

3482 

F 835 

JD 302 

C 088 

3 B 84 

BBF 1 

7786 

823 A 

C 8 3 8 

3425 

272 F 

8302 

7 C 86 

C 898 

DBF! 

7285 

023 A 

3425 

C 898 

272 F 

8382 

3034 

4 EFF 

C 0 A 8 

2 F 83 

18 F 8 

8882 

0852 

C 8 A 8 

1148 

522 F 

3137 

8808 


„l ““J 

C 130 FIES @ 2 F 7 85 BB 02 FF 
C 138 84 DB 02 C 0 87 BB 02 AF 
C 148 86 DB 027 B 3424 262 F 
Ci 48 03 F 1 7706 023 B 3402 
Cl 50 0027 2 F 02 023 B 3407 
C 158 0707 0702 0027 2 F 02 
C 168 0290 3402 C 085 BB 02 
Cl 68 AF 84 DB 02 F 787 DB 02 
Cl 78 FF 86 BB 02 7 B 34 8024 
Cl 78 DBF! 95 F 1 7224 A 0 C 7 
Cl 88 3302 4226 F 195 2 F 11 
Cl 88 0210 344 E FF 2 F 032 F 
U 190 ÜB 37 0000 0000 0000 



































CHRONO 
AU 100* 


Ceci est un petit utilitaire en LM 
qui transformera votre PC 
1401/02 en un chronomètre au 
100 e de seconde. 


Après avoir tapé le programme Basic, exécutez- 
le par RUN ENTER. Puis sauvegardez la partie 
LM par : 

CSAVEM "CHRONO ";&4000,&41 36 ENTER 
Vous pouvez d'ailleurs effacer le Basic par NEW 
ENTER. Ensuite le chrono se lance par CALL 
&4000 ENTER. 

Les touches d'utilisation sont les suivantes : 
► départ 
◄ stop 

f temps intermédiaires 
C-CE remise à zéro 
BASIC retour au Basic 

Pour régler la précision du chronomètre, il faut 
modifier (par POKE) les valeurs du paramètre 
des WAITS aux adresses suivantes : 

&4004 pour le général 
&4051 pour les 100 e 
&4062 pour les 10 e 
&4073 pour les secondes 
&4084 pour les dizaines de sec 
&4095 pour les minutes 
&40A6 pour les dizaines de mn 

Si l'on veut récupérer le dernier résultat après 
une extinction de la machine, faire : 

CALL &4015 ENTER 

Etudiez bien ce programme, il vous donnera une 
foule de renseignements. 

A vos marques... 

C. MUNCH 


10 : REM CHRONO 100 EUE 
20: REH (C) C MUNCH 
30: REH & LE CLUB 


108: Y=&4 198 s X=S80CF: FOR 
1=1 TG 11: POKE Y? 
PEEK (X+4))PEEK <X-*-3 
>»PEEK <X+2))PEEK (X 
+ 1 } > PEEK X : H=X+5 > Y=Y 
+5:NEXT I 

4000: POKE 140005 &10>&40 
5&B55M25I005&525& 
i. 1 ï tSiBSs &52> &1 1 j CcBb. 

iÈ52»&ll»&Cl5&52»& 

11 

4010: POKE &4010J&C75È52 
5 SI 1 ; SCA 5 152 5 SE5 5 S 

A2 5 S: i U 5 S 40 5 S .£$9 5 St4 

5 S8F 5 S67 5 S4B’5 S39s S 
1F 

4020: POKE S49205 S675 S27 
5 S33 5 SB2 5 S67 5 S 1 5 5 S 
29 5 &0D 5 S 10 5 S405 SB0 
5S025Sé05®:525SE45S 
8F 

4030: POKE S40305 S67» S03 
5S285&095S1.05S405S 
B05 S025 S005 S52f S2C 
5 S035 S4Es &0Cs S67 s S 
10 

4040: POKE S40405 S39» S27 
5 S r 8 s S405 SB0> S 1 0 5 S 
405 SCA 5 S57s S74s S05 
5 s52 » S b i 5 Si25 Si3»S 
05 

4050: POKE S40505 S4E» SFA 
5 S2Ds &2B5 &025 &00s& 
52» SI 1» SC7s S57s S74 
5 S05 5 S52 5 S 6 1 - 5 S3i 5 S 
38 

4060: POKE S4860» S85» S4E 
5 SBI 5 & 2 B 5 S 3 C 5 S 025 S 
00* &52» &1 1 5 &C1* &57 
5 S r4» S85» s5i» s 6 f 5 S 
32 

4070: POKE &40705S385S85 
5 S4E» S85» &2B» S4B» S 
02» S89» S52» SI 1 5 SBE 
5 S5 r 5 S 745 &U5 5 &5!Z 5 S 
67 

4080: POKE S40805 ÈIE 5 S38 
» SW5» S4E» S05 5 &2B » S 
5E» S02s S005 &52 5 SI 1 
5 sBu 5 S5 1 1 5 S74 5 S05 » S 
52 

4090: POKE S40905 S67» S32 
» S38» S05» S4E» S005 S 
2B»S6F5&02»S00»S52 
» S 1 1 » SE5» S57» S74» S 
05 

4100: POKE S40A05S525S67 
5 SIE 5 S385 S05» S4E5 S 
005S2D5&80»S375S00 
5 S005 S005 S005 S005 S 
00 


4118: POKE S40B05 S005 S84 
5 S b 5 5 S 1 0 5 & 4 1 5 S 0 0 5 S 

i8»sii»see»si8»sii 

»S^^5Sl85Sll»S005S 

18 

4120: POKE S40C05 SI 1 » S08 

5 Si 35 Si 1 5 S ^^5 SI 85 S 

1 1 5 S00 5 SI 85 S 1 1 5 S00 
» S18» S 88 » S27» S35» S 
10 

4130: POKE S40D05 S68» S00 
» S19» S4Es S75» S37< S 
005 S00 



L 




ASTUCES 

fcSlVK&S 


Bien que la tendance actuelle routine-LM-destinée-à-... » 
soit au LM, les astuces que je L'ensemble est peut-être un peu 

vous propose font essentielle- long mais je n'ai peu pu éviter 
ment appel au Basic ; il est en un certain côté didactique : 
effet fort peu probable que les déformation professionnelle (je 
membres du Club soient tous des suis enseignant), 
inconditionnels de la « nuit- 
blanche-pour-optimiser-la- 



COMMANDE MERGE SUR PC-1401 

Rappelons que cette commande permet de 
charger un programme (PR0G2) à partir d'une 
cassette, sans effacer le programme (PROG 1 ) 


déjà résident en mémoire (ce qui est inévita- 
ble à l'exécution de la commande "CLOAD"). 
Il suffit pour cela de masquer PROG1 en fai- 
sant pointer PDP à la fin de celui-ci (1) ; on 
charge alors PR0G2 (2) puis on réinitialise PDP 
(3): 



Remarques : 

• Il faut veiller à ce que tous les numéros de 
™9 ure * lignes de PROG2 soient supérieurs à ceux de 


(1) A = PEEK &46E3 + 256 * PEEK &46E4 
- 1 

POKE &46E1 , A - 256 * INT (A/256) , INT 
(A/256) 

(2) CLOAD "PR0G2" 

(3) POKE &46E1 , &00 , &38 


PROG 1 . 

• Si vous éteignez la machine sans avoir réi- 
nitialisé PDP ((b) et (c)), vous provoquez un 
''ALL RESET". 

• Si vous effectuez la commande "NEW" dans 
la même situation, le système va mettre à 255 
l'octet pointé par PDP. N'oubliez pas de le 
remettre à 1 3 avant la réinitialisation (POKE A, 


&OD). 










INSTRUCTION ERASE 


Cette instruction permet de gagner de la place 
en mémoire en libérant le dernier tableau 
déclaré s'il vous est devenu inutile. 

10000 "ERASE" P = &46FC : A = PEEK P 
+ 256 * PEEK (P + 1) : IF A = &45D0THEN 
RETURN 

1 001 0 A = 256 * PEEK (A + 2) + PEEK (A + 3) 
+ 4 : POKE P, A - 256 * INT (A/256), INT 
(A/256) : RETURN 



EXTENSION MEMOIRE 

S'il vous manque quelques octets, et si toutes 
les variables fixes (Z à A) ne vous sont pas 
indispensables, vous pouvez gagnez jusqu'à 
208 octets : 

POKE &46FC, &AO, &46 
Faites alors "MEM” : 3742 1! Mais vous n'avez 
plus une seule variable fixe. Sans aller jusqu'à 
cette solution extrême, vous pouvez gagner 8 
octets par variable (en commençant par Z) : 




ANNEXE 

Un peu de LM tout de même... 

De tous ces trucs, le plus intéressant semble 
bien être la simulation de la commande 
"MERGE". Cette commande, pourtant bien 
utile, est bizarrement absente sur le PC-1401 
alors qu'elle est présente sur tous les autres 
pockets de SHARP. Si l'on y fait souvent appel, 
il peut être intéressant de la conserver en 
mémoire sous forme d'une routine LM, et de 
loger dans un endroit relativement protégé de 
la mémoire vive système. On trouve justement 
de &479E à &47AF 18 octets (la longueur de 
la routine) correspondant au cinquième niveau 
des boucles FOR...NEXT. Si, comme moi, vous 


allez rarement au-delà de 3 niveaux d'îmbricai- 
ton, vous disposerez d'une commande 
"MERGE" résidente : 

(1) CALL &479E ; (2) CLOAD "PROG" ; (3) 
POKE &46E1, O, 56 


Voici la routine désassemblée et son DUMP : 
MERGE 

479E 10 UDP 46E3 

47A1 57 LDD 

47A2 43 DEÇA 

47A3 11 UDL El 

47A5 52 STD 

47A6 11 UDL E4 

47A8 57 LDD 


47A9 

2A JRNCP 02147AC) 


47AB 

43 DEÇA 



47AC 

11 UDL E2 



47AE 

52 STD 



47AF 

37 RTN 



4798 

0000 0000 

0000 

1046 

47A0 

E357 4311 

El 52 

11E4 

47A8 

572A 0243 

11E2 

5237 


M. BALLAND 







PROBABILITES 


Nous n'ovions pas encore publié 
de programme de ce type, cet 
oubli est aujourd'hui réparé. De 
plus, ces trois sous-routines 
regroupées sous un seul 
« titre » sont suffisamment sim- 
ples pour être adaptées sans 
mal a tous les PC. A vous, 
ensuite, de les accomoder à 
votre goût. 

EXPLICATIONS : 

• Arrangements/Combinaisons : DEF V 
Arrangements : probabilité d'obtenir un événe- 
ment dans l'ordre, ex : le tiercé. 

p = nombre d'éléments recherchés, 
n = nombre d'éléments d'ensemble. 

Tiercé de 20 chevaux dans l'ordre (et pour 5 
francs...) : 

p = 3, n = 20 donne A^q = 6840 on a donc 
1 chance sur 6840 de gagner. 

Combinaison : même principe mais l'événe- 
ment n'a pas d'ordre. 

Tiercé de 20 chevaux dans le désordre : 

p = 3, n = 20 donne C^g = 1140; donc on 
a une chance sur 1140. 

Conclusion idiote ; c'est plus facile dans le... 

• Loi binomiale : DEF B 

n = nombre d'éléments de l'ensemble, 
p = probabilité du choix favorable, 
k = nombre d'essais. 

Ex. pile ou face avec 20 pièces (ou la même 
lancée 20 fois). 

n = 20, p = 0,5 car 50% face), k = 2 car 2 
tirages. 

Sur 2 tirages on a la probabilité d'avoir 2 fois 

D'où p = 1 ,81 2E-4 

• Loi de poisson : DEF H 
X = moyenne X = n.p. 

k = nombre de tirages. 

La Loi de Poisson s'applique pour n très grand 
et p petit. 

M. GIRBAL 


4000:*** PROBABILITES * 
* 

4010: *<c> H. GIRBAL & LE 
CLUB 

5000: "V" WAIT 0 
5002: CLS : PRINT "Arrotn 
/Comb M 

5004: K$= INKEY* : IF K$ 
< >*A* AND KtO*C* 
THEN 5004 

5006: CLS : CURSOR 0» 1 : 
PRINT K$: CURS0R 1 
: INPUT >",P 
5008: CURSOR 49: INPUT * 
n*>N 

5018 : A= 1 : FOR 1=0 TO P- 
1 

5812: A=A*CN-I ) : NEXT I 
5014: IF K$=*A* THEN 501 
8 

5016: F=l: FOR 1=1 TO P: 
F=F*I : NEXT l:fl=A/ 
F 

5018: CURSOR 3» 1 : PRINT 
* = * ! A 

5020: IF INKEY* O")'’ 
THEN 5020 
5022: GOTO 5002 
6000: V B U CLS : NAIT 0 
6002: INPUT * n ?*5N 
6004: INPUT * P ? w ;p 
6006: INPUT *k ?*5K 
6003: R=P rt K*( l-P) rt (N-K) : 
A=1 

6010: IF K=0 LET F=l: 
GOTO 6020 

6012: FOR 1=0 TO K-l 
6014: A=A*<N-I ) : NEXT I 
6816:F=l: FOR 1=1 TO K 
6018:F=F*I: NEXT I 
6020: CLS : PRINT *P<z=* 

; kï *>=* ;r*a/f 

6022: K$= INKEY$ : IF K* 
=*B* THEN 6002 
6024: IF «$<>'’ > g THEN 60 
22 

6026: GOTO 6006 
7000: *H* WAIT 0: CLS. 
7002-.GCURSOR <0>6): 

GPRINT *8464186080 
*: INPUT *?*5L 
7004: INPUT *K ?*5K 
7008: F=l: FOR 1=1 TO K 
7010:F=F*I: NEXT I 
70121 P«LaK* EXP <-L)/F 
7014:PRINT *P(z=*ÎK5*)= 
*5P 

7016: GOTO 7004 


ASTUCES 



BOGUE EN ROM 


L'instruction LINE (X1,Y1)-(X2,Y2),X,B 
devrait tracer un rectangle à l'écran, ayant son 
coin supérieur gauche aux coordonnées X 1 ,Y 1 
et son coin inférieur droit en X2,Y2 et ceci en 
inversant la couleur des points formant le 
cadre. Or le point de coordonnées (X 1 ,Y1 ) reste 
de la même couleur. L'explication est assez 
simple, faites ceci : 

10:WAIT 0:CLS:LINE (0,0)- (149,31 ),X, B 
20:GOTO 20 
RUN (ENTER) 

Vous verrez le coin supérieur gauche passer au 
noir, le tracé du rectangle continue, et en tra- 
çant le dernier côté il va trop loin d'un point 
puisqu'il réinverse le coin supérieur gauche ; 
donc il repasse dans sa couleur d'origine. Pour 
pallier cet inconvénient, il suffit de faire après 
l'instruction LINE « défectueuse » un LINE 
(X 1 ,Y 1 ) — (X 1 ,Y 1 ),X . 



MODE ANGULAIRE 

Il est difficile de savoir dans quel mode angu- 
laire on se trouve. Je vous propose de mettre 
en réserve cette formule : 

SHIFT MODE 
SHIFTA 

A:MID$("DRG",((PEEK &787C AND 
7)/2) + 1,1) 

(ENTER) 

MODE 

et en faisant SHIFT A, la première lettre du 
mode angulaire dans lequel vous vous trouvez 
s'affiche. 


M. GIRONDOT 


GESTION 
CE 516P 


DRIVER CLAVIER 

Ce programme entièrement en est donc nécessaire de réserver 
L.M., non relogeable, est cem- sa place dans la mémoire du 
pris entre &6040 et &613E, il 1350. 


Pour cela, taper : POKE &6F01 , &40, &61 suivi 
d'un NEW, en mode PRO. Vous pouvez alors 
entrer le programme par la méthode de votre 
choix. 

Lancer le programme par CALL &6040 à cha- 
que allumage de votre machine. Il est décon- 
seillé de lancer, par la suite un autre programme 
par DEF « n », utilisez plutôt GOTO « n ». 

Le programme est, en fait, une amélioration de 
l'interpréteur du PC ; il permet d'avoir accès 
à des fonctions prévues d'origine mais non 
exploitées. En effet, sous driver, un POKE 
&6F1 1, &80 produit l'autorepeat des touches ; 
un POKE 47886, &1 8 provoque un affichage 
vertical des données. La sonorisation est obte- 
nue grâce aux codes ASCII des chiffres. La sai- 
sie s'effectue en &1204 et l'écriture en 
&A882. Le réglage des sons est obtenue en 
Pokant en &6108 une valeur correspondant à 
la longueur du son, la valeur d'origine étant 5. 

En &6128, on règle la vitesse de répétition ; 
la valeur d'origine étant &10. Pour créer vous 
même vos propres fonctions, il vous suffira de 
modifier le JP de la table de sauts 
(&60C7-&60C8) par un JP de votre choix ; 
l'adresse d'origine étant &B06E correspondant 
à la routine de traitement de ENTER. 

Ce programme a été écrit à l'aide de l'assem- 
bleur ASM 1 350 actuellement commercialisé 
à la règle à calcul. 

P. DEHLINGER 


6040 78D90C78ACBBF204 
6048 78610667182A032C 
6050 08DA78A891796046 
6058 4D4D4D4D4D4D4D4D 
6060 4D4D4D4D4D670E2A 
6068 15670A380F670438 
6070 0D2A3367032805FE 
6078 D00203F5D2F53BD4 
6080 FC7A0860A06902DF 
6088 6E03090104E27E0A 
6090 04D80EE0AC0FE0EB 
6098 13E1A314E197ACFA 
60A0 F4EE796046670838 
60A8 2EF53BD4FCF543D6 
60B0 0229127A0560C969 
60B8 05D5B206ACE507CF 
60C0 140BE3D50CE465B0 
60C8 6E2D2AF543D60229 
60D0 2778AC4F2D3578D9 
60D8 0C10783C57670828 
60E0 0A02105278ACBB79 
60E8 60466710280A0220 
60F0 5278AC6479604602 
60F8 085278AC76796046 
6100 01DF2F016110DA02 
6108 0534DA34125F6001 
6110 DF2F016110DF2F0C 
6118 34106F110280525B 
6120 3467182A035B3702 
6128 1034E9E82F031078 
6130 8602184D10783CD4 
6138 FE4D4D4D4D5B37AE 



Voici un petit programme pour 
PC- 1350 ou PC-2500 connecté 
via un CE-5161 sur un CE-516P. 
Sans connaître les commandes 
du 516, faites des dessins, des 
textes,... 

Pour utiliser ce programme, c'est très simple : 
le mettre dans la mémoire de votre PC 
faire RUN 

taper la commande désirée, c'est à dire : 

• un chiffre de 1 à 9 indiquant la direction dans 
laquelle vous voulez diriger le crayon. Sur la troi- 
sième ligne de l'écran, il est indiqué si le crayon 
est levé ou baissé (les directions sont représen- 
tées par une rose des vents centrée sur le 5 : 
8=en haut 2=en bas...) 

• la lettre M comme mode pour baisser ou lever 
la plume 

• la lettre H comme Home pour revenir au cen- 
tre de la feuille 

• la commande L comme ligne pour indiquer le 
style de trait qui sera choisi ou entre ici une 
valeur allant de 0 à 15. 

• la commande P comme impression pour écrire 
du texte. On indique la taille et le sens des 
caractères. 

• la commande R comme Rond pour créer un 
cercle dont le centre est l'emplacement du stylo. 
On se déplace jusqu'au bord du cercle et on le 
fait tracer en appuyant sur + . On peut annuler 
cette commande en appuyant sur * 

• la commande T comme teinture pour remplir 
un rond ou une boîte du motif saisi (valeur de 
0 à 10) 

• la commande C comme couleur pour chan- 
ger de couleur. Entrer une valeur de 0 à 3 

• et la commande F comme fin pour sortir du 
programme. 

Bon dessin 


10i ÛPt.N "1200»N,0»l»A.L»8,lA"î CONSOLE 
160; ESC*= CHR$ 8,18: OIN B$<0>*40 
20 U. PR INT ESC» + "Ô“ : BEEP U LPRINT ESC 
f+"b": LPRINT '71480» -662 " i LPRINT " 
1 ":P=0»ü$-"dePI . " » A$=" . " » X-0» Y=0 
CLS : WA1T 0: CURSOR 17: 

PR INT "Ge s516P" : PR INT "Commande; - 
PR INT "Mode "»Q* 

40: INKEY* : IF A$="" 


TH£N 40 


50: IF UAL A$O0 CURSOR 34: PR INT A$i 
GOSUB 1 50: L PR INT ChR* C22-SUP~1>> 
»X» " » ** î V : GOTO 30 

60:1F A*«"m" OR A**"ri" LÛT P*<P*0>: 
GOTO 120 

20: IF «♦-"h” OR A$ - "H" CURSOR 34: 

PRINT "Home " : lPRINT "H": GOTO 30 
80: IF A*~"L" OR A$^"l" CURSOR 34: 

PR INT "L i 4 ne " : GOTO 190 
90:1F h$-"P" OR A$ a "P" CURSOR 34: 

PR INT " ImPress i oiV* : GOTO 210 
100: IF A$-"R" OR A$="r" CURSOR 34: 

PR INT "Rond" : GOTO 260 
110: IF < A$-"T" OR A$="J"> AND <B$-"r" 

OR B$-"R" OR B$*"b" OR Bf *"B " ) 
CURSOR 34: PRINT "Teinture": GOTO 3 
30 

120: 1F A$*"C" OR A^"c" CURSOR 34: 

PRINT "Couleur " : GOTO 350 
130: IF A*-"U" OR A$-"b" CURSOR d4 : 

PRINT "Boite": GOTO 320 
140: 2 s 40+400*< (A$="F" > + (A#-'* f " ; ) : BtLP 
l: GOTO 2 

150: C- UAL A$-i:D* INT <C/3> : EsC-D*3-lï 
D-D-lï IF ABS <X+10*E>>-480 OR ABS 
< Y+10*D) >-662 RETURN 
160:X^XH0*F: Y--Yi-10*D: RETURN 
120: U$-"dePI . ": IF P-l LET Q$="ecrit." 


180: GOTO 30 

190: CURSOR 48: INPUT "Style de liâr.e:"} 
LJL-- INT ABS L: IF L<16 LPRINT "L"î 
L 

200: GOTO 30 

210:CURSÜR 48: INPUT "Taille des carac. 

: " »C: CURSOR 22: INPUT "Direct ion: " 

» 0:0* INT ABS C:0* INT ABS D: IF C< 
64 AND £J< 4 THEN 230 
220: GOTO 30 

230: CURSOR 48: PRINT " 

"î; 

CURSOR 48 

240: INPUT "te *t e : S B$<0>: LPRINT ESC*+" 
?"ÎC: LPRINT "û" » D: LPRINT "P"îBt<0 
): LPRINT "fl" >Xi"»"»Y 
250: GOTO 30 

260: CURSOR 48: PRINT "Allez au bord du 
rond. <*> annuler <►> tracer ":U-X 
: W=Y 

220: A$- INKEY$ : 1F A*-"" THEN 220 
280:1F A$-"l" LPRINT "fT*ÎUj"i"îw: GOTO 
320 

290: IF A$^"+" LET C- INT ( SÛR <fU~X>n2 
♦ CW-Y)n2)«-.5)ï LPRINT "fl" i U» " » " » N: 
LPRINT "C'ÎU* "» "ÎNJ "» "ÎC: GOTO 320 
300: 1F dAL h*-0 THEN 220 
310: GOSUB 150: LPRINT "H" » X» " » " » Y: GOTO 


220 

320: A*- CHRf (66+ CAS-"*" ) ) : X-U: Y" H: 

GOTO 30 

330: CURSOR 48: INPUT "Style de remplie® 
a9e: "»C:C= INT ABS C: IF C<11 
LPRINT " T" » C 

340: GOTO 30 

350: CURSOR 48: INPUT "0:noir l:bleu 2:v 
ert 3: rowôe ?' , »C*C= INT ABS C: 

IF C<4 LPRINT ESC*» C 

360: GOTO 30 

320: CURSOR 48: PRINT "Allez a I ‘autre b 
out . <*> annuler (O tracer" : U-X 

: N-Y 

3B0: A$= INKEY* : IF A**"" THEN 380 

390ÜF A*-"*" LPRINT "fl" îdî " > " îul: GOTO 
430 

400: IF A$="t-" LPRINT "D"îUî " > "»i4î ">B": A 
GOTO 430 

410: IF dAL A$-0 THEN 380 

420: GOSUB 150: LPRINT "H" i Xi " . " i Y: GOTO 
380 

430: X=U: Y-W: GOTO 30 

440: CLS : PRINT "Au Revoir CLOSE 

: END 



LE TABLEUR 


Une astuce... 

Lorsque vous modifiez des éléments du 
tableau, vous pouvez faire des modifications 
sur ce qui a déjà été introduit dans une cellule. 


Tapez une touche puis vous accédez à ce 
moment à une cellule dont vous pouvez modi- 
fier le contenu. 

Des formules... 

Une petite gestion de stock. 

« produits » : Total - HT = qte + PU — HT : Total 
TTC =Total-HT*(1 +TVA/100) 


Gérez vos actions et vos obligations. 
«Action»: Emission: Total =Actuel*Qte : 
Différence = Total -Emission*Qte 
« Obligation » : Actuel =P%/100*Emission : 
Total = Actuel *Qte : 

Gain = Total - Emission *Qte 

Une autre astuce... 

Un INKEY$ sans test. Au lieu de faire : 

10 A$ = INKEY$ : IF A$=" " THEN 10 
Tapez : 

10 CALL&802D : A$=CHR$PEEK&6D89 
Vous gagnerez du temps et de la place 
mémoire. 





LM SC 61860 (ESR-H) 

Comme en témoigne votre courrier, vous n'avez 
pas été sans remarquer que certaines instructions 
du microprocesseur SC 61860 équipant à ce joui 1 
la plupart des PC, figurent dans notre tableau 
publié dans la revue N 0 8, mais ne sont pas expli- 
quées dans le « MACHINE LANGUAGE REFERENCE 
MANUAL » du PC 1250/51. Voici donc pour les 
mordus de la « chose », les fonctions connues de 
ces instructions « oubliées ». Elles sont présen- 
tées à la manière du manuel et plusieurs codes 
nous sont encore inconnus. Donc a vous de jouer. 



J.F. V. 


d est défini pour IF GTO ELSE, auparavant par ON RET ; ces deux ins- 
tructions étant couplées. L'adresse après RET est l'adresse de retour (après 
rencontre de RTN & 37) d'une routine appelée par GTO ou ELSE. 

N est le registre OA de la pile, 0 est le registre OB de la pile tout comme 
A est le registre 02 de cette même pile. 




■ 


MSN 

12XX/14XX/13XX 



OPERANDE DE WAIT C6E5, C6E6 

START (RSV-1) C6C4, C6C5 


46FC, 46FD 
46E5, 46E6 


66FC, 66FD 
66E5, 66E6 
283E,283F 


6F07, 6F08 
70B3, 70B4 
6F55, 6F56 


Ce tableau est le premier d'une série comportant 
les adresses des principaux pointeurs systèmes 
des PC équipés au microprocesseur ESR-H. Ceci 
permettra, nous l'espérons, des adaptations plus 
aisées de nos programmes y faisant référence, 
pour les diHérentes machines citées. 


FlagWAITn C6D8 46D8 66D8 6F13 

Flag P.=<P. C6D7 46D7 66D7 6F12 

VARIABLES FIXES C5DO C69F 45DO 469F 6500 65CF 6C30 6D00 

A Z 


B800 B82F 
sauf 1245 


65D0 65FF 6E6F 6FFF 
















TORTUE GRAPHIQUE SUR 
IMPRIMANTE MZ-700 


Ce petit programme permet de 
s'initier à la partie araphique du 
langage LOGO sur l'imprimante 
du MZ-700. Il est écrit en ver- 
sion 4 (au moins) du K-Basic V. 
5 et occupe environ 11K octets 
en mémoire. 


Le programme possède un certain nombre de 
commandes que nous allons étudier successi- 
vement. Auparavant, précisons que sur l'écran, 
seront inscrites les valeurs des variables X, Y 
(position stylo), S (variable SCALE qui sera vue 
plus loin) et A, angle que fait la direction du 
stylo avec l'axe Ox. Cette direction est maté- 
rialisée par le pointeur se trouvant dans le carré 
rouge de l'écran. 

CENTRE : 

Ramène le stylo au centre sans tracer de trait. 
Remet X et Y à zéro ainsi que l'angle A. Ne 
modifie pas S. 

CHANGES : 

Avances le papier et réinitialise la tortue. Cet 
ordre correspons à CLS et permet de changer 
de dessin. 

LEVES : 

Permet de lever le stylo et donc de ne tracer 
aucun trait lors de ses déplacements. 

BAISSES : 

Permet au stylo de laisser une trace sur le 
papier. Au départ, le stylo est considéré comme 
baissé. 

DROITE : 

DROITE argument fait tourner le stylo sur la 
droite, d'un angle égal à la valeur de « argu- 
ment » (Le programme retranche « argument » 

GAUCHE : 

Comme DROITE mais en sens inverse. On 
remarquera que pour que le programme com- 
prenne bien l'ordre, il faut laisser au moins un 
espace entre DROITE (ou GAUCHE) et argu- 


Le dessin est toujours tracé dans 
un carré de 480 unités sur 480, 
le centre étant placé au centre 
de la bande de papier de l'im- 
primante. On ne peut pas sortir 
de ce cadre. 


ment. On pourra essayer plusieurs exemples 
et voir comment se modifie le pointeur sur 
l'écran, ainsi que A ; DROITE 56 + 42 

AVANCES : 

AVANCES argument fait avancer le stylo de la 
longueur « argument » dans la direction indi- 
quée par A. 

RECULES : 

RECULES argument, le fait reculer. Par exem- 
ple donner 4 fois de suite les ordres : AVAN- 
CES 100 et DROITE 90 : 


VAS-EN : 

VAS-EN X Y déplace le stylo au point X, Y sur 
le papier. X et Y peuvent être des expressions 
que le Basic calculera. 

COULEUR : 

COULEUR n où est une expression numérique 
permet de choisir la couleur du stylo. On peut 
d'ailleurs écrire la couleur en toutes lettres : 
COULEUR 0 ou COULEUR NOIR 
COULEUR 1 ou COULEUR BLEU 
COULEUR 2 ou COULEUR VERT 
COULEUR 3 ou COULEUR ROUGE 

FINI : 

Interrompt le programme. Le retour se fait à la 
ligne 50. 



POUR: 

POUR permet de définir de nouvelles comman- 
des qui seront incorporées au « mini-langage ». 
Il est suivi du nom donné à cette nouvelle com- 
mande. Par exemple, pour définir un carré de 
100 unités de côté, on fera : 


POUR CARRE 
AVANCES 100 
DROITE 90 
AVANCES 100 
DROITE 90 
AVANCES 100 
DROITE 90 
AVANCES 100 
DROITE 90 
FIN 


Pour l'utiliser, il suffira d'écrire : CARRE 
REMARQUES : Il n'est pas possible de définir 
une commande portant le même nom qu'une 
commande déjà définie. 

Il est possible de lister sur l'écran CARRE (par 
exemple) en faisant LISTES CARRE. 

De même, le listing sur l'imprimante est pos- 
sible par PLISTES CARRE. 

On peut supprimer CARRE de la mémoire en 
écrivant OUBLIES CARRE. 

Enfin, il est possible de modifier une commande 
de CARRE par EDITES CARRE. L'écran est alors 
changé et trois options (effacement, modifica- 
tion ou insertion de lignes) avec, bien entendu 
FIN permettent de transformer la commande. 

REPETES : 

REPETES argument : Cette structure effectue 
les instructions... 

N fois, N étant la valeur 
de « argument ». 

ENCORE 


SAUVES : 

SAUVES argument enregistre sur la cassette, 
toutes les nouvelles commandes déjà définies, 
sous le nom de fichier « argument ». 

CHARGES : 

CHARGES argument replace en mémoire, 
venant de la cassette, les définitions enregis- 
trées sous le nom de fichier « argument ». 


POUR ETOILE 
REPETES 12 
AUANCES 150 
DROITE 150 
ENCORE 
FIN 




ECHELLE : 

ECHELLE argument donne à la variable SCALE 
(apparaissant à l'écran sous le nom S) la valeur 
de argument. Son effet est de changer les 
déplacements relatifs du stylo. 

Avec ECHELLE 2 AVANCES 50 fait avancer le 
stylo de 50 unités (pour l'imprimante du 
MZ-700) 

Avec ECHELLE 2 AVANCES 50 provoquera 
une avance 100 unités. 

TAILLE : 

TAILLE argument multiplie SCALE par la valeur 
de l'argument. 

Par exemple TAILLE 0.5 puis ETOILE dessinera 
une étoile deux fois plus petite. 

LIGNE : 

LIGNE argument est un entier de 1 à 16 per- 
met de modifier le type de ligne tracée par le 
stylo (Voir page 87 manuel de l'ordinateur). 

SOIT : 

SOIT permet au programme d'utiliser des varia- 
bles. SOIT COTE 15 + 7 donnera à la variable 
COTE la valeur 22. On remarquera que COTE 
est alors une variable considérée comme cel- 
les du programme, par le Basic. Autrement dit, 
il ne faudra pas utiliser comme variable une des 
variables du programme lui même, sous peine 
de le voir fonctionner de façon aberrante. 

SI. SINON : 

C'est le IF THEN ELSE du Basic : SI condition 
action I SINON action 2. Il peut être utile pour 
la condition, d'utiliser certaines fonctions du 
Basic ce qui peut poser des problèmes aux pro- 
grammes (pour lequel, un espace est un sépa- 
rateur entre diverses commandes). On pourra 
alors écrire la condition entre crochets : (cf 
ligne 3). 


POUR DOUBLEPOLY 
Paramétrés: REP C0 Cl PI Fl 

1 SOIT K A A 

2 REPETES REP 

3 SI CCKA nODULOCF1*Am 
<FÎ*A1/2D3 AUA 

NCES C0 SINON AUANCES Cl 

4 DROITE Al 

5 SOIT KA KA+A1 

6 ENCORE 
? FIN 


UTILISATION DE PARAMETRES : 

L'exemple précédent montre qu'il est possible 
de définir de nouvelles commandes possédant 
des paramètres. Il peut y avoir au maximum 5 
paramètres (exemple : On entre POUR DOU- 
BLEPOLY REP CO Cl Al Fl) et lors de l'appel 


POUR CARRE 
Parametrt» : COTE 

1 REPETES 4 

2 AUANCES COTE 

3 DROITE 90 

4 ENCORE 

5 FIN 


POUR CARRES 


1 SOIT COTE 0 

2 REPETES 20 

3 SOIT COTE COTE+5 

4 CARRE COTE 

5 ENCORE 
0 FIN 



on indique les valeurs : DOUBLEPOLY 50 50 
1 00 30 1 20. Le programme affectera à REP la 
valeur 50, à CO la valeur 50,..., à Fl la valeur 
1 20. A la fin, REP, CO,..., Fl retrouveront leurs 
valeurs intiales. Il y a donc, comme en Basic, 
passage de paramètres, par valeur. 

REMARQUES : 

Shift F5 permet de réinitialiser l'imprimante (en 
cas d'erreur). 

Shift F4 permet de faire redémarrer le pro- 
gramme après un Break, sans perdre le contenu 
de la mémoire. 

Les valeurs X et Y affichées par le programme, 
en haut à gauche de l'écran sont les parties 
entières de X et Y, positions du stylo. Elles sont 
donc « arrondies » par rapport aux vraies 
valeurs. D'autre part, il se produira des erreurs 
sur X et Y car les variables sont calculées par 
des Sinus et Cosinus d'angles exprimés en 
degrés. 


QUELQUES EXEMPLES 

Autre définition d'un carré. Il faudra faire Shift 
Break pour arrêter le programme et le repren- 
dre par Shift F4 


POUR MA2E 

Paramétrés : DISTANCE 

1 AUANCES DISTANCE 

2 DROITE 90 

3 H A2E D I ST ANCE+5 

4 FIN 


POUR SPIRAL 
Paramétrés: DISTANCE 

1 AUANCES DISTANCE 

2 DROITE 75 

3 SPIRAL DISTANCEES 

4 FIN 




POUR CARRE 

1 

AUANCES 100 

2 

DROITE 90 

3 

CARRE 

4 

FIN 


On fera attention au fait que ces deux derniers 
types de programme s'appellent eux mêmes et 
par suite, si on les laisse tourner trop long- 
temps, ils satureront la mémoire du MZ-700 
ce qui détruira toutes les variables. 


POUR POLYGONE 
Parraine très • COTE ONGLE 

1 AUANCES COTE 

2 DROITE ANGLE 

3 POLYGONE COTE ANGLE 

4 FIN 


DOUBLEPOLY 50 100 60 8 



POUR AIMPOLY 
Paramétrés : SI Al A2 F 

1 U AS- EN -100 0 

2 SOIT KA 0 

3 REPETES 500 

4 AUANCES SI 

5 SI CCKA nODULO F 3=03' 
DROITE Aî SINON 
DROITE A2 

6 SOIT KA KA+1 
? ENCORE 

8 FIN 



POUR CORPS 

1 SI CCKA f10DUL0CF1*A133 
<F1*A1/2J AUAN 

CES C0 SINON AUANCES Cl 

2 DROITE Al 

3 SOIT KA KA+A1 

4 CORPS 

5 FIN 

POUR DOUBLEPOLY 
Paramétrés • C0 Cl Al Fl 

1 SOIT KA 0« 

2 CENTRE 

3 CORPS 

4 FIN 



IMPOLY 100 10 90 5 

POUR IflPOL 

1 SI UKA MODULO 
CF1*A1 13=03 AUANCES S 
2 SINON AUANCES SI 

2 DROITE Al 

3 SOIT KA KA+A1 

4 inPOL 

5 FIN 

POUR IMPOLY 

Paramètre*: SI S2 Al Fl 

1 CENTRE 

2 SOIT KA 0 

3 IflPOL 

4 FIN 


AIMPOLY 5045 45 5 



UNE AUTRE DEFINITION: 


IMPOLY 35-20 40 25 

POUR IMPOLY 

Paramétrés • SI S2 Al Fl 

1 CENTRE 

2 SOIT KA 0 

3 REPETES 500 

4 SI CCKA MODULO 
CF1*A1 3 3=03 AUANCES S 
2 SINON AUANCES SI 

5 DROITE Al 

6 SOIT KA K A-*- Al 
? ENCORE 

8 FIN 







AIMPOLY 50 50-50 7 











VARIABLES UTILISEES PAR LE PROGRAMME 


A Angle entre l'axe des abscisses et 
la direction du stylo. 

A§ Utilisée par le programme 

BLEU = 1 (Couleur du stylo) 

B§ Utilisé par le programme 

CO = Cos(A) 

C 

C§ 

D 

DUMMY Variable utilisée pour le passage de 
variables entre le Basic et le pro- 
gramme lui-même. Il ne faudra sur- 
tout pas changer les deux premiè- 
res lignes ( 1 0 et 20) du programme. 


FL Indique le type de ligne tracée par 
le stylo 


J. 

KS = si stylo baissé et 0 sinon 
KW = 25 nombres d'instructions 
prédéfinies 
K 
L 

NBW = degré de remplissage du tableau 
C§ contenant les instructions prédé- 
finies et celles définies par 
l'utilisateur. 

NOIR = (Couleur du stylo) 

N 

P 

ROUGE = 3 (Couleur du stylo) 

R§ 

SI = Sinus(A) 

SCALE Echelle 

T 

Tl 


VERT = 2 (Couleur du stylo) 

X Abscisse du stylo 

XO 

Y Ordonnée du stylo 

YO 

Z 

Tableaus W§, C§, P§, P, Q, ER§ 



UNE AMEIIOMTION 
DU K-BASIC V.5.4 


Remarque : 

Pour toutes ces routines, le listing est stoppé 
momentanément, par appui sur la barre d'es- 
pace et définitivement par Shift Break. 


Nous allons ajouter au Basic une possibilité très 
intéressante, celle de pouvoir nous donner, sur 
l'écran ou sur imprimante, le nom et la valeur 
des variables présentes en mémoire, ainsi que 
le nom et le numéro de ligne des définitions de 
procédures et de fonctions. 

CTRL Z donnera sur écran, le listing des FN / 
PROC contenues dans le programme, avec le 
numéro de la ligne où elles se trouvent. La rou- 
tine qui va être ajoutée au Basic, lit tout le pro- 
gramme (et non le catalogue des FN/PROC) et, 
par suite, fonctionnera même si le programme 
n'a pas encore été exécuté. 

CTRL C fait la même chose, mais sur impri- 
mante. Il ne se passera rien si l'imprimante est 
en mode graphique. 

CTRL J donne sur écran, les noms et valeurs 
des diverses variables utilisées par le pro- 
gramme (celui-ci doit avoir déjà fonctionné). 


CTRL L fait la même chose mais sur impri- p 0U r implanter ces possibilités dans K-Basic 

mante. Il ne se passera rien si l'imprimante est V. 5.4, le charger et par Shift Break retourner 

en mode graphique. au moniteur en mémoire morte. 


Par M modifier les octets IOFD et y écrire 35 (identificateur K-Basic V.5.5) 


126D 

60 

126E 

6D 

127B 

77 

127C 

6D 

127F 

65 

1280 

6D 

129B 

72 

129C 

6D 


Toujours par M introduire, à partir de l'octet 
7E52 (= 6C52 + 1 200) les codes du listing 

suivant : 4F 06 00 20 DC C9. 

Enfin, par M, introduire à partir de l'octet 7F60 
(= 6D60 + 1 200) les codes du second lis- 
ting : 21 38 6E 00 20 46 4E 00. 


On réenregistrera le Basic par J 8670 et enfon- 
cement de S. 

Après toutes ces modifications, les zones libres 
du Basic sont : 

6AF2 à 6C5I - 6D4I à 6D5F - 6FF3 à 6FFC 

B.Kokanoski 


700 


3080 

P 


0889H 

3003 

P 

PRINTK: E9ü 

iiiili: 

3888 


DEBURRs EQU 

73R3H 

3 380 

P 

WRIT: EQU 

17D3H 

8000 

P 

CHINDC: EQU 

4D62H 

3000 

P 

SflUTLH: EQU 

17F9H 

3083 

P 

«FfiCl: EQU 

72A1H 

3808 

p 

NUHPRT: EQU 

35A3H 

3888 

P 

ECRHES: EQU 

17E2H 

3888 

P 

QTKEVï EQU 

0053H 

0008 

P 

BLOCKM: EQU 

488 Si 

0300 

P 

DEBPRQ: EQU 

rm 1H 

8830 

F 

CHLR3C: EQU 

21DBH 

3888 

3883 

P 

SPfiCS: EQU 

4F41H 

83% 

6052 


REL 

6C52H 

6052 4F 

TRBLQ: LD 

C»fi 

6C53 0600 

LD 

B.-38H 

6055 09 

RDD 

HL» K 


6C56 TE 

6057 32956C 
6C5R 47 

6058 ED5BR173 
6C5F IB 
6C60 ED53976C 
6C64 RF 

6C65 12 
6C66 IB 
6067 23 
6C68 12 
6C6S IB 
6C6R 23 
6C6B 18F8 
6C60 22BC6C 
6C70 23 
6C71 23 
6C72 23 
6073 22F16D 
6C76 000860 

6079 3E28 
6C7B CD0317 
6C7E CD946C 

6081 F5 

6082 CDF06D 
6085 2RF16D 

6088 23 

6089 Fl 
6C8R CRD56D 

6080 CD896D 
6098 200F 


LO 
LD 
LD 
LO 
DEC 
LD 
XGR 
LO 
DEC 
INC 
LD 
DEC 
INC 
-DJNZ 
LD 
INC 

TRBLl^INC 

INC 

LD 

CRLL 

LD 

CRLL 

CRLL 

PUSH 

CRLL 

LO 

INC 

POP 

JP 

CRLL 
— JR 


fl»(W.) 

(NBDIM)»fl 

DE»(DEBPRO) 

DE 

(BUFDEB)jDE 

R 

COE)» fi 

DE 

HL 

(DE)» R 
DE 
HL 
S7 

<PTDIM),HL 

HL 

HL 

HL 

<POINTR)»HL 

LISTE1 

fi,28H 

WRIT 

PRRR 

RF 

UflRSP 

HL. (POINTR) 

HL 

RF 

Z.TRBL01 

flTTEND 

NZ.TflBLl 


6092 El 

6093 C9 


POP 

RET 

HL 

6094 06 

PRRR s 

WF 

"05R 

6C95 % 

NBDIM: 

DEFB 

00H 

6096 21 


DEFB 

21H 

6C97 0000 

BUFDEBt 

DEFU 

0000H 

6099 56 

i 65«— ► LD 

0, (HL) 

6C9R 2B 


DEC 

HL 

6C9B 5E 


LD 

E, (HL) 

6C9C 28 


DEC 

HL 


BC = longueur du nom de la variable. 

Saute le nom en zone I 
A = nombre de dimensions. Le stocke dans 
la routine elle-même. 

B = nb de dimensions. 

Va stocker (en remontant) B fois 0000 
dans le Buffer situé juste avant le 
début du programme utilisateur. 

Fait ce stokage. C'est dans cette zone 
que la routine trouvera les nombres à 
écrire fle dernier étant le premier 
indice...) 

Profite de la boucle, pour sauter, en 
Zone I, les dimensions. 

Pointe sur octet haut 1ère dim (cf NOTICE) 
Saute la « longueur des zones Z » 


Pointe la zone de 3 octets : L n° d'ordre 
Ecrit le nom de la variable 
Ecrit ( 

Ecrit les indices Z si terminé. 

Sauve Z ou NZ 
Ecrit la valeur 

Avance dans la cellule en zone I 

Si tableau épuisé, sortie 
Teste Shift Break et Space 
Recommence pour l'élément suivant 
Retour si Shift Break. 

LD B, nombre de dimensions. 

LD HL, fin de buffer où on a mis les 0000 

Prend dans DE le contenu (en remontant 
dans la mémoire). 


ÊC9&-C5-- 


PUSH 

BC 



PUSH 

HL 

6C9F éb 


EX 

DE» HL 

6CA0 CDDB21 


COLL 

CHLOSC 

6C03 CDE217 


COLL 

ECRMES 



POP 

HL 

:6Cfi7^ 


POP 

BC 

6CA8 1007 


I — ^DJNZ 

S6 

6C0A 3E29 



LO 

fl»29H 

6CAC CDD317 



COLL 

WRIT 

6CflF 1807 



JR 


6CB1 3E2C 

S6i 

^LO 

0»2CH 

6CB3 CDD317 


COLL 

WRIT 

6CB6 18E1 


"JR 


6CB8 20976C 


LO 

HL. <BUFDEB>J 

6C8B 11 


DEFB 

11H 

6CBC 0000 

PTOIM! 

DEFU 

0000H 

6CBE 3A956C 


LD 

0» <NBDIM) 

6CC1 F5 

S9S r 

— ►PUSH 

OF 

6CC2 46 


LD 

B» (HL) 

6CC3 2B 


DEC 

HL 

6CC4 4E 


LO 

C, (HL) 

6CC5 03 


INC 

BC 

6CC6 ES 


PUSH 

HL 

6CC7 EB 


EX 

DE» HL 

6CC8 SB 


LD 

0» (HL) 

6CC9 2B 


DEC 

HL 

6CC0 SE 


LO 

E» (HL) 

6CCB 2B 


DEC 

HL 

6CCC EB 


EX 

DE» HL 

6CCD PIF 


XOR 

0 

6CCE ED42 


SBC 

HL.BC 

6CD0 2807 

>* 

-JR 

Z.S8 

6CD2 El 


POP 

HL 

6CD3 71 


LD 

(HL).C 

6CD4 23 


INC 

HL 

6CD5 70 


LO 

(HL). B 

6CD6 Fl 


POP 

OF 

6CD7 87 


OR 

0 

É.CD8 C9 , 


RET 


6CD9 El 

38 : 

^►POP 

HL 

6CDA 3600 


LO 

(HL)»00H 

6CDC 23 


INC 

HL 

6CDD 3680 


LD 

(HD.00H 

6CDF 2B 


DEC 

HL 

6CE0 2B 


OEC 

HL 

6CE1 Fl 


POP 

OF 

6CE2 3D 


DEC 

fl 

6CE3 20DC 


—JR 

NZ.S9 

6CE5 C9 


RET 


6CE6 


REL 

007OH 

6D60 




6D60 

CTRLC» 

ENT 


6D60 21386E 


LD 

HL.CTRL0 

6063 1803 

I 

— *JR 

+5 

606S 

CTRLL: 

ENT 


6065 219460 


LO 

HL. DUMP 

6068 3AB548 

1 

► LO 

A.(BLQCKM) 

606B FE02 


CP 

02H 

6060 C8 


RET 

Z 

606E 3E01 


LO 

A.01H 

6070 1B09 


—JR 

+11 

6072 

CTRLZ3 

ENT 


6D72 21386E 


LD 

HL.CTRL0 

6D7S 1803 


p JR 

+5 

6077 

CTRL J 

ENT 



Sauve BC (compteur) et HL (pointeur 
Buffer) 

HL = indice pris dans Buffer 
Le convertit en décimal ASCII 
et l'écrit. 

Récupère le pointeur HL 
et le compteur B 
recommence jusqu'à B=0 
Ecrit ) 

Ecrit une virgule 

et recommence. 

HL pointe en « bas » du buffer 
LD DE, bas des dimensions en zone I 

A = nombre de dimensions. 

Prend l'indice du Buffer et 
et l'augmente d'une unité. 


Sauve le pointer dans buffer. 

HL pointe en zone I 

DE = dimension trouvée en zone I 


HL = dimension trouvée 

Compare HL et BC 

Si égales, saut 

Sinon, écrit BC dans Buffer. 


et teste si A =0 (sortie Z si oui) 


Ecrit 0000 dans buffer 

Et doit alors, incrémenter l'indice 
suivant (qui se trouve avant, dans 
le Buffer) 

Le fait jusqu'à ce qu'on ait épuisé 
toutes les dimensions. 


Ecrira CALL CRTLO à MEMS 

Ecrira CALL DUMP à MEMS 
Retour si imprimante en mode Graph. 
Indicateur imprimante en marche. 

Ecrira CALL CTRLO à MEMS 




219460 
6D7fl flF 

S2 228260 

6D?E 321918 

6081 CD 

6082 0000 

6084 PF 

6085 321918 

6088 C9 

6089~PF 
6DSP CO5800 
6080 FE20 
608F 28F8 
6091 FE1B 
6093 C9 
6094~c5S 900 
6097 061 p 
6099 2PR373 

6090 C5 

6090 £5 ’ 

609E C0PC60 
6001 El 
60R2 23 
60P3 23 
60P4 Cl 
60P5 CD8960 
6DP8 C8 
60P9 10F1 
-6DPS C9 
60PC 4É" 

60P0 23 
60PE 46 
60RF 78 

6080 Bl 

6081 C8 
60B2 09 
6083 7E 
60B4 32E760 
6087 32F960 
60BP FE40 
60BC 23 
6DBD E5 
6D8E 23 
60BF 23 
6OC0 7E 
60C1 320960 
6DC4 23 
60C5 220B6D 
60C8 D2526C 
60CB CD0860 

fjj* ^SSFlôO 

6DD2 mens* 


us. 


LO 

mcmo DEF B 
MEMSi OEFij 

XOR 

LD 

pgT j* 

mi ftNOî XOR" 
COLL 


nu.,yunP 

P 

<MEMS),HL 

<PR1NTM),0 

COH 

0000H 

P 

<PRlNTM),fl 

p" 

qtkev i 
20H 

2» ATTEND ~J 
18H 


LO 
LO 

LOOP î f~ia»,pygj^ 

PUSH 
CflLL 
POP 


NL 
B» lflH 

HL» <OEBURR) 

BC 

HL 

liste 

HL 


«'«sari 

6002 COF06D 

6003 El 
60061804 

W?08 0g 
6009 00 
600P 21 
6008 0000 
6000 7E 
600E C0D31? 
60E1 23 
60E2 10F9 
60E4 » 

60E5 34 
60E6 3E 
60E7 00 



LD 

toq „ CflLL 
TA8L01: pop 

S 1 ' ss 
S, T ' ** 

LOO P1:*h.d 
C flLL 
INC 
— 0JN2 
LO 
LD 

CODE. DEfI 


NC » TflBLO 
LISTE! 

<POINTR), DE 

IJÛOCD 



tcnra CALL DUMP à MEMS 
Stocke l'indicateur imprimante. 

Arrête ÏÏ L ° ° U CALL DUMP - 

Arrête le fonctionnement de l'imprim 


Boucle d'attente si 


a PPui sur Space. 


Sortie 2 si Shift Break. 

Saute la ligne. 
oauve le compteur B 

Sawe le pointeur catalogue. 

X;:r ssjenomc ^ 

Avance dans le catalogue (2 octets) 

Récupère le compteur B 
Arrêt si Space ou Shift Break 

retour si Shift Break 

Smon recommence 26 fois. 

Bc = pointeur relatif en zone I 

Si nul, liste terminée donc retour. 

Accède au début de la reiinia « • 

Pr«™c»d e «ts,oï eS " OTe 

p“'f c ' K > 3.M3 on 85 
Po n e le pointeur relatif de la 
cellule suivante. 

Saute le pointeur relatif 
longueur du nom de la variable 
e stocke dans la routine e fe ^ême 

Pointeur sur début du nom. 

Le stocke dans la routine. 

Séparé le cas des tableaux 
e r de ^ variable. 

Stocke le pointeur en zone I derrière 

Recommence. 

LD B; longueur du nom de la variable. 
lu HL, pointeur sur début du nom. 

Ecrit le nom, caractère par caractère. 

LD A, code (3,5,83 ou 85) 



60E8 CB37 
6DEA ce 
6DEB 3E24 
6DED C3D317 
6DF0 21 " 

6DF1 0000 
60F3 3E3D 
6DF5 CDD317 
6DF8 3E 
6DF9 00 
6DFA CB57 
6DFC 201E 
6DFE 3E22 
6E00 CDD317 
6E03 CD624D 
6E06 300C 
6E08 78 
6E09 B7 
6E0A 2888 
6E0C 23 
6E0D 7E 
6E0E C00317 
6E1 1 23 
6E12 10F9 
6E14 3E22 
SE16 CDD317 
6E19 C3F917 


BIT 

RET 

U> 

JP 


~ÛftR8P: — ÉBFT 
POINTRs DEFU 
LD 
CALL 
DEFB 
CODElt OEFB 


2, fl 
HZ 

fi»24H 
WRIT 
~7ïf I 

0000H 
A,3DH 
WRIT 
3EH 
00H 


L00P2i 


Si: 

S4S 


BIT 

2, A 

JR 

NZ,iJARNM8 

LD 

A,22H 

CALL 

WRIT 

CALL 

CHINDC 

r—JR 

NC, 81 

LD 

A, B 

OR 

A 

r—JR 

Z,S1 

INC 

HL 

4 LD 

A,(HL)^ — 

CALL 

INC 

WRIT 

HL 

DJNZ 

LQ0P2 — J 

Wld 

A,22H 

►CALL 

1 JP 

ES * " 

WRIT 

SflUTLN "*^111“”^ 


6E1C CD624D 
SEIF 3804 
6E21 3E30 
6E23 18F1 

6E23 23 


-JR 

LD 

JR 


C* 82 

fi,30H 

S3 


6E26 

6E29 

6E2A 

6E2D 

6E2F 

6E30 

6E33 

6E36 


11A172 

03 

010500 

EDB0 

El 

CDA335 

C0E217 

18E1 


S2: 


►INC 

LD 

PUSH 

LD 

LDIR 
POP 
CALL 
CALL 
JR 


HL 

DE»#FAC1 

DE 

BCi000SH 

HL 

NUMPRT 
ECRMES 
S4 


6E38 CD0900 
6E3B 2AA173 
6E3E SE 
6E3F 23 
6E40 36 
6E41 7A 
6E42 B3 
6E43 C8 
6E44 EB 
6E45 19 
6E46 2B 
6E47 E5 
6E48 EB 
6E49 23 
6E4A 4E 
6E4B 23 
6E4C 46 
6E4D 23 
6E4E 7E 
6E4F FEC7 
6E3i 2003 
6ES3 El 
6E54 18ES 
C0414F 
6E39 FEB9 
6E5B 280A 


CTRL0: CALL 
LD 

BOU : — -►{.O 
INC 
LD 
LD 
OR 
RET 


TC 

HL, CDEBPRQ) 
E, <HL) 

HL 

D, (HL) 

A,D 

E 

2 


B 0 !J 2 t 


EX 

DE, HL 

ADD 

HL, DE 

DEC 

HL 

PUSH 

HL ' 

EX 

DE, HL 

INC 

HL 

LD 

C, (HL) 

INC 

HL 

LD 

B* (HL) 

INC 

HL 

LD 

fi» (HL) 

CP 

C7H 

r JR 

Z, +5 

POP 
1— JR 

HL ◄— 
BOU 

‘-►CALL 

SPAC0 

CP 

B9H 

JR 

Z,B0U1 


Si 5 ou 85 retour immédiat. 

Sinon écrit $ derrière le nom. 

LD HL, pointeur derrière le nom en zone I 
sur zones de 3 octets : L ordre Z2 
Ecrit = 

Prend le code 3,5,83,85 

Si 5 ou 85, saut (Var. Numérique) 

Sinon écrit « 

Cherche la valeur en zone 2 
Si NC, n'existe pas encore 
B = longueur de la valeur 
Si nulle, saut 

HL pointe sur le début de la valeur 
L'écrit. 

Ecrit « 

Change de ligne 
Cherche si existe. 

Sinon, écrit 0. 

HL pointe sur début de la valeur. 

La transporte à FACI (Floating Accumulator) 

HL=FACI 

Le décode et l'écrit en ascii 
L'écrit 

Change de ligne. 

Passe à la ligne 

HL pointe sur le début du programme 

DE = longueur de la ligne de programme. 

Teste si fin du programme. 

Si oui, sortie. 

HL pointe le début de la ligne suivante. 

Le sauve en pile 


BC=N° de ligne 


HL pointe sur le début du contenu de la 
ligne. Regarde si code = DEF 

Si oui, saut, sinon étudie la ligne 
suivante. 

Saute les espaces 
Teste si PROC. 



Teste si FN (de code FF C7) 


6E5D FEFF 

! CP 

FFH 

6ESF 20F2 

JR 

NZ?B0U2 : 

6E61 23 

INC 

HL 

6E62 7E 


R, <HL) 

6E63 FEC7 



6E6S 20EC 


NZ.BQU2 — j 

6E67 E5 
6E68 F5 
6E69 69 
6E6R 60 

BOUli-PUSH 

PU8H 

LD 

LD 

HL 

L.C \s:r:r\ 

6E6B CDDB21 

CRLL 

CHLRSC l 

6E6E CDE217 

CRLL 

ECRMES 

6E71 Fl 

POP 

RF 

6E72 11R26E 

LD 

DE.MESSP I 

6E75 FEB9 

CP 


6E77 2803 
6E79 HA86E 
6E7C CDE217 

I — JR 
L^CRLL 

Z? +5 

DE? MESSF I 
ECRMES 

6E7F El 

pop 

HL 

6E80 CD414F 

CRLL 

SPRC0 ! 

6E83 FE22 

CP 

22H 

6E85 20CC 

JR 

NZ.B0U2 — 

6E87 CDD317 

BOUSir-MSRLL 

INC 

WRIT 1 

6E8R 23 

HL 

6E8B 7E 

■: i ld 

R? (HL) 

6E8C FE22 

: cp 

22H 

6E8E 2005 

r JR 

NZ.+7 

6E90 CDD317 

CRLL 

URIT 

6E93 1803 

JR 

+5 

6E93 B7 

•►(JR 

R 

6E96 20EF 

L~~ JR 

NZ?B0U3 ! 

6E98 CDF917 

CRLL 

SRUTLN ! 

6E9B CD896D 

CRLL 

ATTEND i 

6E9E 20B3 

JR 

NZ.B0U2 ~ J 

6ER8 El 

POP 

HL 

6EA1 C9 

RET 


6ÉR2 2050524F 

MESSPî DEFM 

" PROC" 

6ER6 43 
6ER7 00 

DEFB 

00H 

6ER8 20464E 

MESSF t DEFM 

" FN" 

6ERB 00 

DEFB 

00H 

6ERC 

END 



Pointeur sur code de FN ou PROC 
A=B9 ou PROC et C7 si FN 
HL=N° de ligne 
Le convertit en décimal ASCII 
L'écrit à l'écran 
Reprend le code 

Ecrit PROC ou FN selon le cas. 


Revient dans la ligne de programme. 

Saute les espaces. 

Si on ne trouve pas «, on change de ligne 

Ecrit les caractères du nom FN / PROC 
jusqu'à trouver « ou la fin de la ligne 
de code OOH 


Change de ligne sur écran 
Teste l'enfoncement de Space ou Shift Br. 
Sinon recommence 
Si oui, fini. 





LES POSSIBIMES 
INSOUPÇONNEES 
DE IA ROM DU LECTEUR 
DE DISQUETTES 


Heureux posseseurs d'un lec- 
teur de disquettes, il se peut que 
votre lecteur s'il appartient à la 
seconde génération, soit équi- 
pé de la dernière ROM permet- 
tant l'écriture et la lecture de 


chaque secteur de vos disquet- 
tes. Comme le manuel ne parle 

Ï »as de ces possibilités, je vous 
ais part ici de quelques unes de 
mes découvertes. 


Votre lecteur (muni de sa Master Disquette), 
et votre MZ-700 venant juste d'être allumés, 
entrez les commandes suivantes : 

* JF004 et CR si le message BOOT DRIVE 
apparaît, répondez par la lettre D ; s'affiche 
alors : « sds MINIDOS on Sharp MZ-700 V2.D» 
Si tel n'est pas le cas, votre lecteur n'est pas 
équipé de la dernière ROM, repassez par la case 
départ et sautez directement au paragraphe 
« ANCIENNES ROM » 

Pour mieux comprendre la suite, sachez qu'une 
disquette comporte 1120 secteurs (460 en 
HEXA) et que les 48 premiers (30 en HEXA) 
sont réservés à la directory de la disquette. 

1. LES PREMIERES COMMANDES 

>D 1,0010 et CR : affiche le secteur numéro 
16(10 hexa) dans lequel vous reconnaîtrez les 
noms des premiers programmes de votre dis- 
quettes. Notez qu'en appuyant sur une touche 
le « scrollnig » s'arrête et CR reprend ligne à 
ligne. 

> R 1 , 001 0, 01 00, 1 200 et CR : c'est la com- 
mande qui permet la lecture du secteur 10 hexa 
sur une longueur de 0100 hexa octets écrits 
à partir de l'adresse RAM 1200 hexa. Pour 
visualiser le résultat, faire maintenant : >M et 
CR : c'est le retour au moniteur de base. 
Faites maintenant * DI 200, vous retrouvez les 
informations précédentes. 


2. PREMIERE APPLICATION : 

Créer une disquette master auto reproductible 
pour cela : 

• Faire une copie de la disquette d'origine, celle 
livrée avec le lecteur, en utilisant le programme 
« UTILITY » 

• Reprendre les commandes « D » et « R » ci- 
dessus, (en respectant leur syntaxe). 

• Sous le moniteur, faire DI 200, s'affiche alors 
l'écran suivant : 


1200 

80 

00 

00 

00 

00 

00 

00 

00 

>. . . 


1208 

00 

00 

00 

00 

00 

00 

00 

00 

.... 

. . . . 

*1210 

00 

00 

00 

00 

00 

00 

00 

00 

.... 

. . . . 

1218 

00 

00 

00 

00 

00 

00 

00 

00 

.... 


1220 

01 

55 

36 

86 

B8 

86 

96 

80 

.Ut i 

1 fty 

1228 

00 

00 

00 

00 

00 

00 

00 

00 



1230 

00 

00 

01 

00 

00 

09 

00 

12 



1238 

00 

12 

00 

00 

00 

00 

40 

01 


. . 6 . 

1 240 

01 

46 

86 

88 

A 6 

B0 

97 

5F 

.Fi 1 

i n9<- 

1248 

43 

4D 

54 

00 

00 

00 

00 

00 

en t. 


1250 

00 

00 

01 

00 

00 

16 

00 

12 

. . . . 


1258 

00 

12 

00 

00 

00 

00 

49 

01 

. . . . 

. .1. 

1260 

00 

40 

41 

53 

54 

45 

52 

43 

. H8STERC 

1268 

4F 

50 

59 

00 

00 

00 

00 

00 

OPY. 


1270 

00 

00 

00 

00 

00 

03 

00 

12 


. . . . 

1278 

00 

12 

00 

00 

00 

00 

5F 

01 



1280 

00 

00 

00 

00 

00 

00 

00 

00 



1288 

00 

00 

00 

00 

00 

00 

00 

00 



1290 

00 

00 

00 

00 

00 

00 

00 

00 



1298 

00 

00 

00 

00 

00 

00 

00 

00 




• Pour récupérer l'utilitaire « MASTERCOPY » 
(effacé d'origine) faire M 1 260 et répondre 01 , 
touche CR et shift Break. 

• Reprendre le Mini-Dos par JF57E et CR puis 
la commande d'écriture (Write) suivante : 
>W1, 0010, 1200 


% 


Enfin >B (chargement du Basic par BOOT). 
La commande DIR fournit « MASTERCOPY », 
précieux programme permettant de dupliquer 
n'importe quelle disquette. 

REMARQUE : 

Si vous rechargez un autre programme sur 
cette disquette, « Mastercopy » va être écrasé. 
Pour éviter cet inconvénient lancer les opéra- 
tions suivantes : 

• RUN « MASTERCOPY » 

• Passer sous moniteur (par M) 

• Faire ST2001AFF1 200 sauvegarde sur cas- 
sette de « MASTERCOPY » 

• Taper # qui ramène au basic et faire : 

• UNLOCK puis DELETE « UTILITY » 
(désormais inutile I). 

• DELETE « MASTERCOPY » 

• RUN « FILING-CMT » et récupérer 
« MASTERCOPY » qui se trouve sur la 
cassette réenroulée. 

Vous disposez maintenant d'une disquette 
auto-reproductible que vous pouvez complé- 
ter avec vos programmes et utilitaires favoris 
et dont la copie sera elle-même auto- 
reproductible par « MASTERCOPY ». 

3. DEUXIEME APPLICATION : 

Augmenter la capacité des disquettes. 
Peut-être avez-vous pu constater sur une dis- 
quette Master l'impossibilité de sauvegarder un 
programme suite au message d'erreur 53 (plus 
de place sur disquette) et ce, malgré le fait que 
DIR vous indique au moins 1 36 secteurs libres. 
En fait la disquette d'origine vous prive de 1 36 
secteurs et je vous propose de les récupérer 
sur la disquette que nous venons de fabriquer. 

• Sous le moniteur de base, faire JF57E puis : 
>R1, 000F, 0100, 1200 (lecture du 15ème 
secteur écrit à l'adresse 1200 hexa) et CR puis 
>M et CR 

« DI 200 donne les informations suivantes : 


1200 

00 

88 

07 

00 

60 

04 

FF 

FF 

. 1 ". .11 

1208 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

xxxxxxxx 

1210 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

xxxxxxxx 

1218 

FF 

FF 

7F 

00 

00 

00 

00 

00 

XX 

1220 

00 

00 

00 

00 

00 

00 

00 

00 


1228 

00 

00 

00 

00 

00 

00 

00 

00 



• Faire M 1206 

1206 FF 00 
1208 FF 00 


Mise à 00 de 
l'adresse 1 206 
à l'adresse 1217 
inclues. 


1217 FF 00 — I 

1218 FF shift Break 


• Revenir au Mini-Dos par JF57E et écrire la 
modification sur disquette par : >W1 , OOOF, 
0100, 1200 et CR 

• Revenir au moniteur par >M et CR 
Nous avons ainsi libéré 1 36 secteurs bloqués 
dans la directory. 

ANCIENNES ROM : 

Pour ceux d'entre vous qui ne possèdent pas 
le MINI-DOS SHARP, je vous propose de cons- 
tituer, malgré cela, un utilitaire « Mastercopy » 
permettant de dupliquer n'importe quelle dis- 
quette du MZ-700. 


Pour cela : 

1 . Charger par RUN le programme « UTILITY » 

2. Sur l'option demandée, répondre M pour 
retour au Moniteur. 

3. Modifier les 3 octets suivants par la com- 
mande M14D7 répondre successivement : 
14D7 3A C3 + CR. 

14D8 00 DE + CR. 

145D9 2E 13 + CR. 

14DA B7 shift + Break 

4. Pour réactiver ce programme modifié faire : 
J 1200 + CR. Vous disposez ainsi d'un pro- 
gramme équivalent à MASTERCOPYque vous 


CLAVIER 

AZERTY 


On s'habitue fort bien au clavier 
QWERTY. L'inconvénient, c'est 
que cette habitude persiste 
quand on passe à un clavier 
AZERTY. Puisque ce dernier est 
usuel en France, pourquoi ne pas 
en doter le MZ 700? 


Il suffit de permuter certaines données de cla- 
vier stockées entre les adresses $ 121F et 
$ 129C, puis de sauvegarder sur une cassette 
vierge le Basic ainsi modifié et, enfin, d'étique- 
ter les touches du clavier en fonction de leur nou- 
velle affectation. 

Le programme ci-joint, « CLAVIER AZERTY », 
modifie le Basic, puis le sauvegarde La procé- 
dure de sauvegarde est tirée du bulletin n° 9. 

Le clavier résultant respecte strictement la posi- 
tion des lettres du clavier type AZERTY. Quant 
aux signes, ils ont été placés de façon que les 
plus couramment utilisés soient obtenus sans 
actionner la touche SHIFT (,:=+?()"$-;) 

On peut utiliser le programme simplement pour 
modifier le clavier au coup par coup, sans sau- 


vegarder le Basic résultant. Il suffit de placer une 
ligne 251 END. 

Il est également possible, si l'on n'utilise que 
l'AZERTY de permuter les touches du clavier en 
déboitant (délicatement) les capuchons des dites 
touches. 

Bien entendu, la modification est sans incidence 
sur le Monitor ROM qui conserve les données 
de clavier QWERTY. 

La ligne 20 contient une modification de la cou- 
leur courante (noir sur bleu pâle, qui est moins 
fatiguant que blanc sur bleu). On peut choisir 
toute autre combinaison. Le bulletin n° 8 indi- 
que que les données de couleur sont contenues 
dans un octet où les bits 1,2 et 3 expriment la 
couleur du fond et les bits 5,6 et 7 celle des 
caractères. Puisque au bit 5 correspnd la puis- 
sance 4 de 2, qui est aussi la puissance 1 de 
16, pour exprimer les données couleur en hexa- 
décimal il suffit de prendre les valeurs décima- 
les des deux couleurs choisies. Ainsi, blanc (7) 
sur bleu (1) donne $ 71, rouge (2) sur jaune (6) 
donne $ 26, noir (0) sur bleu pâle (5) donne $ 
05, etc. 

Arnaud Samuel 


1 ’ ■ ■ 

2 ' Programme "CLAVIER AZERTY" 

3 ' ■ ■ 

4 'S. ARNAUD - Mars 1985 

5 ' 

10 CLS 

20 POKE *5D,*5 : 'couleur noir /bleu pale 
30' ' 

40 'Permutation des données de clavier 
50 ' 

60 DATA *24,*19,*0,*4D,*2B,*D,*59 
70 DATA *57,*2D,*5B,*5D,*0,*0,*0 
80 DATA *41, *52, *53, *54, $55, $56, *5 A 
90 DATA *58, *49, *4A, *4B, *4C, *2C, *4E 
100 DATA *4F, *50, *51, *42, *43, *44, *45 
110 DATA *46, *47, *48, *31, *32, *33, *34 
120 DATA *35, *36, *37, *38, *29, *28, *22 


pouvez recharger sur cassette par la commande 
SI 200 1AFF 1 200 sous Moniteur, puis sur dis- 
quette par « Filing CMT ». 

REMARQUE GENERALE : 

Cet exposé serait incomplet en oubliant de vous 
encourager à dupliquer vos disquettes avant 
toute investigation plus poussée (surtout de la 
commande Write) des possibilités du Mini-Dos. 

X. PIERSON 


130 DATA *20 , *30 , *39 , *3B , *3A , * 1 8 , * 1 0 
140 DATA *12, *11, *13, *14, *3F , *3D, *90 
150 DATA *17, *FB, *5, *0, *B3, *2A, *B ' 

160 DATA *BD,*A3,*93,*BE, *80 , *0 , *0 
170 DATA *0, *A1 , *9D, *A4, *96, *A5, *AB 
180 DATA * A2 , *9B , * A6 , * AF , * A9 , *B8 , *2F 
190 DATA *B0,*B7,*9E,*A0,*9A,*9F,*9C 
200 DATA *92,* AA, *97, *98, *21, *94, *23 
210 DATA *5C,*25,*26,*27,*FC,*C0,*C6 
220 DATA *5F , *20 , *FF , *5E , *2E , *3C » * 1 6 
230 DATA *15, *12, *11, *13, *14, *40, *3E 
240' FOR Q-*121F TO *129C 
250 RE AD A ! POKE Q, A ï NEXT Q 
260 ' 

270 'Routine de transfert du Basic 
280 ' 

290 DATA *AF, *11, *00, *00, *CD, *33, *00, *2A 
300 DATA *71, *11, *22, *54, *12, *11, *00, *00 
310 DATA *21 , *79,*6B, *B7, *ED, *52, *4D, *44 
320 DATA *2 1 , *00 ,*12, *D3 , *E0 , *ED , *B0 , *C3 
330 DATA *00 , *00 , *00 , *00 , *00 , *00 , *00 , *00 
340 FOR Q=*6B79 TO *6BA0 
350 READ A s POKE Q, A ! NEXT Q 
360 ' 

370 'Routine de transfert du Basic 
380 'a sa position initiale 
390 ’ 

400 DATA *21 , *22, * 18, *22, *E7 , *00, *3E, *00 

410 DATA *32, *CF , *6B, *32, *D1 , *6B, *21 , *A0 

420 DATA *6B ,*11, * AO , *7D , *0 1 , * A 1 , *6B , *ED 

430 DATA *B8, *C3, *6A, *4C, *00, *00, *00, *00 

440 FOR Q=*COOO TO *C01F 

450 READ A : POKE Q, A : NEXT Q 

460 ' 

470 'Renvoi au Monitor RDM et sauvegarde 

480 CLS î CURSOR 5,8 

490 PR INT "Fai re BYE puis *GCOOO" 

500 CURSOR 5, 10 

510 PRINT"Placer une cassette vierge" 

520 CURSOR 5,12 

530 PR INT" Faire *S12007DA07D79" 

540 CURSOR 5, 14 

550 PRINT" (noter car l'écran va s' effacer ) " 
560 CURSOR 0,23 



700 


STUCES 

Ifllll! 

— 


UN PETIT POKE 

Un petit POKE pour transformer la première 
ligne de votre programme BASIC en ligne n° 
0. Son intérêt c'est que vous ne pourrez plus 
l'effacer autrement que par DELETE. 

POKE $ 6BD1, $0 

F. UBALDI 




ERRATA ORDRE COMPACT. 

2 petits « BUGS » ont suffi à rendre l'ordre 
COMPACT (N° 1 1 page 37) totalement inopé- 
rant. Réparons vite cette erreur : 

9 6 ligne - 6ème code - lire EB et non ED. 
1 1 8 ligne - 4 ème code - lire 1 8 et non 1 9. 



SOUS DISK BASIC. 

Sous BASIC disquettes, l'accès au deuxième 
générateur de caractères est considérablement 
simplifié par l'emploi d'une astuce de l'instruc- 
tion COLOR. 

La commande COLOR, X,0 ou X est compris 
entre 8 et 1 5 permet d'utiliser tous les carac- 
tères spéciaux directement au clavier, dans la 
couleur spécifiée par X-8. 


Essayez par exemple : 

COLOR, 15,0:? «ESSAI»: COLOR, 7,0 
Attention, cette astuce ne fonctionne que sous 
DISK BASIC. 

C. SZCZEPANSKI 



A PROPOS DE THEN 

Nous avons vu dans le numéro précédent que 
THEN pouvait être omis sauf devant certains 
mots clés tels que « MUSIC » ou « CURSOR ». 
Et bien vous pouvez remplacer alors « THEN » 
par « : » 
exemple i 

IF A >B THEN MUSIC «A » = IF A >B : 
MUSIC « A » 

G. PIDOUX 




CURSEUR EN MODE GRAPH 

En mode « GRAPH » les touches de curseur 
n'ont plus d'action sur le curseur mais affichent 
en vidéo inverse une flèche. Pour récupérer leur 
fonction initiale il suffit d'utiliser simultanément 
la touche « CTRL » 

G. P. 




TEMPS DE REACTION ET VITESSE DE 
REPETITION 

Les touches à répétition dépendent de 2 tem- 
porisations. L'une sert à déterminer le temps 
de réaction (T), l'autre détermine la vitesse de 
répétition. Pour modifier ces paramètres il suffit 
de POKER comme suit : 

Temps de réaction : POKE $2BC, T Valeur nor- 
male de T = $60 

Vitesse de répétition : POKE $288, V Valeur 
normale de V = $10 

T et V sont compris entre Oet $FF toutefois il 
vaut mieux ne pas donner à T et V de valeur 
trop petite car le clavier serait incontrôlable. 

G. P. 


UN 

PROBLEME ? 
UNE CRITIQUE ? 
834.93.44 


à 13 kl 





SiilÉ 


LE MZ AU 
DIAPASON 


Mes affrontements avec l'ins- 
truction Music pour faire de mon 
clavier un piano m'ont rapide- 
ment convaincu.que cette mon- 
ture n'obéirait jamais aux cares- 
ses de mes doigts, mais serait 
docile uniquement sous les coups 
d'étriers aes longueurs de notes 
et les coups de cravache du 
Tempo. 


J'ai donc enfourché USR (68) et j'ai trouvé un 
destrier docile pour peu qu'on lui mette un nom- 
bre sous les yeux. Instantanément il bondit à 
la hauteur correspondant au quotient de 
895000 par ce nombre et s'y maintient aussi 
longtemps qu'on laisse ce nombre sous son 
regard, mais jamais plus longtemps. Ainsi le 
nombre zéro le projette dans une zone de 
silence profond et le nombre 2034 le fait bon- 
dir exactement là où résonne le LA du diapason. 
Voici le schéma de génération d'un son par le 
MZ 700 (les explications ci-dessous n'em- 
ploient que des nombres décimaux)). 

Le MZ 700 émet un signal original de 895000 
Hz mais un compteur répartit cette fréquence 
de façon à n'envoyer au générateur de son 
qu'une fréquence réduite correspondant à la 
hauteur du son qu'on lui commande d'émet- 
tre. A cet effet il utilise un ratio que j'appelle- 
rai « Données de Répartition de Fréquence », 
en abrégé DRF, pour faciliter l'exposé, de sorte 
que la fréquence du son émis est 895000/DRF. 
Ainsi la DRF 2034 génère une fréquence de 
895000/2034 = 532 Hz, qui est celle du Ml 
de l'octave supérieure de notre MZ 700. 
Quand on fait appel à l'instruction Music, le MZ 
700 consulte à l'adresse 2449 une table con- 
tenant les DRF des notes de son octave de réfé- 
rence. Ainsi Music « +E » émettra le Ml supé- 
rieur et si, immédiatement après, on fait PR INT 
PEEK (2617) et PRINT PEEK (2618), l'écran 
affichera 145 et 6. 



Le sous-programme USR (68), lui, ne consulte 
pas de table mais il prend ce qu'il trouve aux 
adresses 2617 2618. Il faut donc s'arranger 
pour y placer la DRF adéquate au bon moment. 
Mais comme on peut y placer n'importe quel 
nombre compris entre 0 et 65535, les fréquen- 
ces des sons émis par USR (68) iront de l'in- 
fini à 1 3.6 Hz, c'est-à-dire depuis les ultra-sons 
jusqu'à la frange supérieure des infra-sons. 
Pour constituer un piano, le problème va donc 
consister à faire en sorte que le mouvement des 
doigts sur le clavier provoque en 2617 2618 
l'apparition instantanée de la DRF convenable, 
c'est-à-dire zéro quand on cesse d'appuyer sur 
une touche et la DRF de la note attribué à une 
touche. Or la réponse à l'instruction GET place 
à l'adresse 95 le code ASCII du caractère 
généré par une touche ou bien zéro si aucune 
touche n'est enfoncée. Pour constater, il suf- 
fit de faire tourner le programme ci-après tout 
en pianotant sur le clavier : 

10 GET A $ : PRINT PEEK (95) : GOTO 10 

11 va donc suffire de dresser à l'intention de USR 
(68) une table de 256 cases dnt les numéros 
seront les codes ASCII des caractères présents 
sur les touches du clavier et qui contiendront 
les DRF des notes qu'on aura affectées aux tou- 
ches retenues. Ainsi si on décide que la tou- 
che V doit engendrer le Ml supérieur, la case 
86 devra contenir 1 681 . La case 0 contiendra 
obligatoirement la DRF zéro qui est celle du 
silence. 

Il ne sera pas nécessaire de calculer toutes les 
DRF de tous les octaves qu'on veut rendre le 
clavier capable de couvrir. En effet, la fré- 
quence d'une note d'un octave quelconque est 
égale à celle de la note homologue d'une octave 
de référence multipliée (ou divisée) par 2, 4, 
8... suivant qu'on est monté (ou descendu) de 
1, 2, 3... octaves. Quelques lignes de pro- 
gramme suffiront pour dresser la table com- 
plète des DRF. On en profitera pour lui faire 
scinder les DRF en deux parties telles qu'elles 
doiven aller respectivement en 261 7 et 261 8. 
Notre table sera donc un tableau T dimensionné 
DIM T (255,2). Le programme de pianotage se 
réduira alors à deux lignes : 

100 GET N$ : POKE 2617, T(PEEK(95), 2) 
110 USR (68): GOTO 100 
Le programme ci-contre « PIANO » propose 
une procédure pour composer un clavier et pour 
l'utiliser. Ce ne sont pas les DRF d'une octave 
de référence qui y sont fournies par les DATA, 
mais les fréquences elles-mêmes de cette 
octave car les fréquences sont des points de 
repère universels. De plus ce sont les fréquen- 



ces naturelles au sein desquelles la fréquence 
du LA du diapason est 440 Hz, alors que le MZ 
700 utilise une gamme transposée. A partir des 
fréquences du programme, qui sont celles de 
l'octave numérotée 3 en notation française, il 
est possible de composer à la convenance de 
chacun un clavier couvrant depuis l'octave 0 
jusqu'à l'octave n, en affectant les majuscu- 
les, les minuscules et les signes, mais pas les 
GRAPH. 

Le programme est conçu pour faire des essais 
de composition du clavier. Quand on aura choisi 
la composition la mieux adaptée à ses référen- 
ces, il sera judicieux de transformer la partie 
n° 2 du programme pour fixer définitivement 
les affectations, de façon à éviter d'avoir à 
affecter les touches à chaque chargement. 

S. ARNAUD 


10 ’ Programme "PIANO" 

20 ' 

30 'S. ARNAUD -- Mars 1985 
40 •’ 

50 * 1* - Explications éventuelles *4*4 
60 ' 

70 CLS ! CURSOR 8,12 

80 PRINT"Expl ications (0/N) ?"î 

90 BET R* s IF (R*< >"G" ) 4 (R*< >"N" ) THEN 90 

100 IF R*="0" CL. S IGQSUB 530 

110 * 

120 * 2* - Composition du clavier 44444 
130 ' 

140 CLS ! DIM T (255, 2) 

150 DATA DO, 262, DO#, 278, RE, 294, RE#, 311 

160 DATA M I , 330 , FA , 350 , FA# , 370 , SOL , 392 

170 DATA SOL.#, 4 15, LA, 440, LA#, 466, SI ,494 

180 CONSOLE 12,1 :CL.S 

190 INPUT"HEEEBÛctave ? OCT 

.200 CLS : CONSOLE 

210 MULT»,254<2t<0CT-l) ) 

220 RESTÜRE 150 î FOR 0=1 TQ 12 

230 RE AD NOTE*, FREQ s CURSOR 5,12 

240 PRINT" J ' affecte " ; NOTE*; " a "5 

250 GET CAR* «IF CAR*»"" GOTO 250 

260 IF CAR*»" " THEN 400 

270 PRINT CAR* s FOR F»1 TO 400 : NEXT F 

280 CLS s CURSOR 8,2 

290 PR INT "Octave"; OCT 5 " - NOTE*; 

" est affecte a ";CAR* 

300 FREQ=FREÜ4MULT 
310 DRF-B95000/FREQ 
320 ND» INT (DRF/256) 

330 NG=DRF-ND4256 

340 T (F’EEK (95) , 1 ) »NG 

350 T (PEEK (95) ,2) »ND 

360 NEXT Q ! CURSOR 5,12 

370 PRINT" Autre octave (0/N) ?"; 

380 GET R* s IF(R*<>"0") 4 (R*< >"N" ) THEN 380 

390 IF R*»"0" THEN 180 

400 CLS ! CURSOR 8,12 

410 PRINT"Le clavier est prêt" 

420 FOR F-i TO 1000 ! NEXT F ! CLS 
430 * 

440 '3* - Execution de la musique *44* 

450 •’ 

460 GET N* 

470 POKE 2617, T (PEEK (95) , 1) 

480 POKE 2618, T (PEEK (95) ,2) 

490 USR (68) s GOTO 46Ô 
500 » 

510 ' 4° - Explications 444444444444444 
520 ' 

530 CONSOLE 0,24,5,34 * PR INT "ERS!" ; 

540 PRINT"F*our composer le clavier s U" 

550 PRINT"Choi si ssez sur le clavier la" 

560 F*RINT"posi tion la plus favorable a" 

570 PRINT"1 ' octave de reference (octave 3) " 
580 PRINT"|JCammence 2 par cette octave" 

590 PR INT "en répondant 3" 

600 PRINT"UPaur affecter les touches," 

610 PRINT"enf oncez-1 es sans taire CR" 

620 PRINT"IPour arrêter en cours d'octave" 
630 F*RINT"appuye 2 sur la barre" 

640 PR I NT "d" espacement " 

650 PRINT " lUUiUE nf onces une touche"; 

660 GET X* î IF X*»"" GOTO 660 
670 CONSOLE s RETURN 


SUPER BASIC 6 


U K. BASIC est maintenant 
reconnu comme étant le BASIC le 
plus puissant implenté sur un 
ordinateur» familial » il est uti- 
lisé et unanimement apprécié 
par la grande majorité (les pos- 
sesseurs de MZ 700 tant ama- 
teurs que professionnels. La 


Les principales commandes spécifiques ont été 
décrites, lors de la présentation du K. BASIC, 
dans notre bulletin numéro 10. Ce BASIC est 
dès maintenant disponible sur ÛUICK DISC, 
accompagné de nombreux programmes per- 
mettant de tirer un meilleur profit de ses 


version MZ 800 conserve les 
mêmes structures de base que le 
K. BASIC. Ont été ajoutées : la 
aestion des QUICK DISC, la 
naute résolution graphique et la 
possibilité de reaéfmir tous les 
caractères affichables. 


immenses ressources et d'une notice très 
détaillée dotée de nombreux exemples. 

Vous pouvez vous le procurer au Club au prix 
de 1 80 F. (Quick Disc, notice et port compris) 
Parallèlement à la conception de ce nouveau 
langage, Monsieur KOKANOSKI est également 


l'auteur, dans ce bulletin, de 3 articles dont la 
qualité n'est plus à démontrer : un langage 
PILOT pour MZ 80K, une tortue graphique pour 
MZ 700 et de nouvelles améliorations à son K. 
Basic. 

L'apport considérable des compétences de 
Monsieur KOKANOSKI a contribué, pour une 
large part à l'essor et à l'évolution de notre 
Club, pour le plus grand bien de tous. Qu'à 
cette occasion, il nous permette de lui renou- 
veler nos très sincères remerciements. 


LISTE DES COMMANDES AJOUTEES AU 
BASIC SHARP 

DISP, ENDPROC, ENDCASE, ELSIF, ENDIF, 
DOKE, DO, INKEY, HSET, KEY, MERGE, OF, 
PROC, REPEAT, UNTIL, WHILE, WEND, DEF, 
RESULT =, BEEP, SEARCH, MOVE, DRAW, 
EXC, PWAIT, LOCAL, CASE, WHEN, OTHER- 
WISE, EXIT, SPOKE, VARTPR, MAX, MIN, 
DIV, MODULO, COMPACT, FRAC, ASN, ACS, 
SH, TH, ASH, ACH, ATH, FACT, DEEK, INV$, 
LCURSX, LCURSY, HCURSX, HCURSY, EVAL, 
TRUE, FALSE, IN$, INSTR, STR ING $. 


L'interpréteur Super-Basic 6 est destiné à la 
programmation du Sharp MZ-800 muni de 
l'unité de lecture des Quick-Discs, uniquement 
en mode 700. Ce Basic est compatible avec 
le K-Basic V.5 puisqu'il en est une extension 
et une adaptation. Il sera donc possible d'utili- 
ser tous les programmes écrits en K-Basic sur 
MZ-700, après les avoir transférés sur Quick- 
Disc. 

Le Super Basic 6 se présente sous deux 
aspects : 

• C'est tout d'abord un interpréteur Basic 
« standard » complet, possédant les instruc- 
tions ELSE pour les tests, INKEY, KEY, GET 
pour « attraper » des caractères au clavier, 
MAX, MIN, OR, AND, XOR, NOT, DIV, 
MODULO,..., pour manipuler des nombres ou 
des chaînes de caractères, MOVE, DRAW, 
POINT pour le semi-graphisme ou le graphisme 
sur l'écran, SWAP, NULL, COPY pour manipu- 
ler les tableaux (à moins de 128 dimensions 
cependant I) etc. 

• C'est surtout un interpréteur destinée à écrire 
des programmes selon les règles de la « Pro- 
grammation structurée ». Dans ce type de pro- 


grammation, bien connue des utilisateurs de 
langages de haut niveau, comme PASCAL, le 
.programme est construit de façon modulaire, 
chaque module pouvant être mis au point 
séparément. 

Avec un peu d'habitude, on pourra écrire de 
longs programmes, faciles à mettre au point, 
à modifier et dont la structure (et par la suite, 
le mode de fonctionnement) se reconnaît au 
premier coup d'œil sur le listing. On ne trou- 
vera surtout plus ces nombreux GOTO ren- 
voyant d'un bout à l'autre du programme et le 
rendant incompréhensible à tout autre qu'à 
l'auteur et même à celui-ci, quelques mois plus 
tard ! 

Rassurons tout de suite l'utilisateur n'ayant 
jamais programmé de façon structurée : le 
Super Basic 6 permettant les deux types de 
programmation, il lui sera toujours possible 
d'écrire son programme en suivant les mauvai- 
ses habitudes dûes à l'utilisation des Basics 
standards, puis le modifier, l'améliorer pour lui 
donner une forme structurée. Ainsi, petit à 
petit, il lui sera possible de s'habituer à la pro- 
grammation structurée et de se rendre compte 
de sa grande puissance. 


Ce genre de programmation est permis par la 
présence de : 

3 types de boucles : 

FOR NEXT 

REPEAT UNTIL 

WHILE WEND 

2 types de tests : 

IF. ..ELSIF. ..ELSE. ..ENDIF.. .CASE... OF... WH- 
EN. ..OTHERWISE... ENDCASE... 

(Ces deux types de structures peuvent s'éten- 
dre sur un nombre quelconque de lignes de 
programme) 

2 types de sous-programmes (en plus des 
GOSUB-RETURN classiques) : 

Procédures définies par DEF PROC et appelées 
par PROC. 

Fonctions définies par DEF FN et appelées FN. 
Ces structures permettent toutes deux le pas- 
sage de paramètres, par valeur et par référence, 
avec, bien entendu, l'utilisation possible de 
variables locales par LOCAL. Elles permettent 
aussi la récursivité. 

Bernard Kokanosky 



UN MONITEUR PEUT 
EN CACHER UN AUTRE 


Le moniteur du MZ-800 possède 
un certain nombre de comman- 
des non décrites dans le manuel. 
Nous allons les passer en revue 
et indiquer comment utiliser cer- 


Le moniteur MZ-800 est constitué de deux par- 
ties, une partie « basse » allant des adresses 
0000 à IIFF et d'une partie haute de EOIO à 
F386. La partie basse est identique au moni- 
teur du MZ-700 dont le listing était donné dans 
le manuel MZ-700 à part les trois octets qui 
au lieu d'être C3 4A 00 (JP 004A) sont C3 00 
E8 (JP E800). Le point d'entrée du moniteur 
haut est donc E800. 

Il s'agit en fait du point d'entrée à froid, c'est 
à dire qu'il y a initialisation de l'ordinateur avec 
test de la présence d'une disquette dans le lec- 
teur ou d'un Quick-Disc et lancement (si oui) 
du premier programme de la disquette. Si ce 
n'est pas le cas, on se retrouverera au point 
d'entrée à chaud (EA5E) auquel on peut accé- 
der à partir de E804 (où l'on trouve C3 5E EA 
ou JP EA5E). 

Trois autres sous-programme utiles ont leur 
point d'entrée juste après : 

E807 : entrée d'un sous programme lisant un 
programme sur cassette et le plaçant 
à partir de 1200H. Le programme ne 
sera pas éxécuté. 

E809 : entrée d'un sous-programme enregis- 
trant sur cassette le programme qui 
vient d'être chargé. 

E80D : entrée d'un sous-programe vérifiant ce 
qui vient d'être enregistré. 

On accède à ces sous-programme par la com- 
mande G (GE807 par exemple). Ces program- 
mes permettent, en particulier, de faire une 
copie du Basic sur cassette. 

On trouve ensuite à E810 : C3 10 EO (JP EOIO) 
programme manipulant les Quick Disc et dont 
nous reparlerons. 


tains sous-programmes pour 
manipuler directement, en lan- 
gage machine, cassettes et 
Quick-Discs. 


LES COMMANDES DU 
MONITEUR SONT : 

J saut. Exemple J000 fait repartir à 
l'adresse 0000 donc tout se passe comme 
si on venait de remettre l'ordinateur en 
marche. 

G Appel de sous-programme. Il y a donc saut 

à l'adresse indiquée, mais retour là où on 
se trouvait avant l'appel, lors du RET du 
programme en langage machine. 
Exemple : GE807 pour charger la cassette 
Basic. 

B Clavier sonore ou pas 

L Load. Cette commande permet de char- 
ger un programme venant d'une cassette. 
Il est décrit dans le manuel. 

S Save permet d'enregistrer un morceau de 
mémoire sur cassette. 

V Verify permet de vérifier ce qui a été enre- 
gisfré par S. 

D Dump permet de lister le contenu de la 
mémoire. Cette commande est décrite 
dans le manuel. 

M Modification éventuelle de la mémoire. 
Voir le manuel. 

F Floppy permet de passer le contrôle au 
programme gérant les disquettes. 

EB (Extension Boot ?) permet d'envoyer le 
contenu de la mémoire centrale dans la 
RAM supplémentaire. 

ÛL Chargement d'un programme en langage 
machine depuis le Quick-Disc. 

QS Sauvegarde sur le programme. Dans ce 
cas, le moniteur demande, en plus du 
nom, l'adresse de début (Top adrs), de fin 
(End adrs) et d'éxécution du programme. 


Il n'y a pas de commande Verify, puisque 
le programme d'enregistrement vérifie lui- 
même que la sauvegarde a été correcte 
(Si elle ne l'était pas, il y aurait 5 tentati- 
ves d'écriture-vérification, avant l'appa- 
rition d'un message d'erreur !) 

QF permet de formater un Quick-Disc 
QD donne le contenu (Directory) du 
Quick-Disc 

QX permet de charger un programme en 
mémoire depuis la cassette et de l'enre- 
gistrer sur le Quick-Disc. 

QC Copy permet de recopier un programme 
d'un Quick-Disc sur un autre. 

La gestion de la mémoire (M,D) et des casset- 
tes (L,S,V) étant bien connue, je vais essayer 
d'exposer ce que j'ai trouvé au sujet de la mani- 
pulation des Quick-Discs, en désassemblant le 
moniteur haut. 

Avant toute chose, disons qu'il existe un sous 
programme gérant les erreurs, c'est à dire prin- 
cipalement, affichant les divers messages d'er- 
reur. Il se trouve à F202H (ERRORS). L'arrivée 
dans ce sous-programme se fait avec A con- 
tenant un code d'erreur ; 

A = 28 File notfound 

A =39 Bad disk err 

A=2E Write protect 

A =32 Not ready 

A =00 Break 

A =35 No file space err 

A=36Unformaterr 

A = 2A Already existerr 

A =33 Too many files err (32 au maximum). 

Autres valeurs : Hard err 

La sortie de ce sous-programme est intéres- 
sante car elle a visiblement été conçue pour une 
utilisation par l'amateur de programmes en lan- 
gage machine. En effet la sortie dépend du con- 
tenu de la mémoire II3AH. 

Si II3AH = 1 le retour se fait par RET sans 
qu'aucun message d'erreur soit 
écrit. 

Si II3AH =2 le retour se fait par RET mais le 
message est écrit. 

Sinon le retour se fait au moniteur 
(départ à chaud) par JP EA5E. 

Signalons aussi que ce sous-programme arrête 
le moteur du Quick-Disc. 

Il est bon aussi, avant d'utiliser l'unité de Q.D, 
vérifier si elle est bien connectée. Le sous- 
programme EB1 3H retourne Z si l'unité est con- 
nectée et NZ sinon, enfin, avant toute opéra- 



tion (chargement ou écriture), il faudra appe- 
ler le sous-programme EEECH qui vide 3 
mémoires chargées d'obliger la tête de lec- 
ture/écriture à se replacer au début du Quick- 
Disc lors de la prochaine opération, et de gar- 
der trace de deux pointeurs utilisés pour l'écri- 
ture de fichiers en plusieurs morceaux. 

Maintenant, toutes les opérations sur Quick- 
Disc se feront par le sous-programme (EOIOH 
ou E810H), le comportement de l'ordinateur 
différant selon la valeur contenue dans la 
mémoire 1 130H. Voici ce que produit CALL 
EOIOH selon les valeurs de 1 130 : 

1 1 30H = 1 L'ordinateur teste si le Quick-Disc 
est prêt pour une opération de lec- 
ture (si 1 1 31 contient 0) ou d'écri- 
ture (si 1 1 31 40). Le retour se fera 
Non Carr si oui et Carry (avec le 
code d'erreur dans A) sinon. 

On peut utiliser directement cette 
possibilité : CALL EFE1H s'il est 
prêt pour une écriture. 

1 1 30H = 2 II y aura formatage du disque. On 
trouve cela dans le sous- 
programme réalisant la commande 
QF (débutant à F0B5H). Retour 
Carry avec A =29 si impossible 
1 130H = 5 C'est le sous-programme (F25F). 
Ce sous-programme obligera, lors 
de la prochaine lecture, la tête de 
lecture à reprendre le disque au 
« début ». Cette opération est 
essentielle lors de la lecture de tout 
un fichier. 

1 1 30H = 6 

ou > 6 Arrêt le moteur et une mémoire qui 
obligera la tête à reprendre le dis- 
que au « début » lors de la pro- 
chaine opération de lecture / 
écriture. 

CALL E2E8H. A sera conservé par 
le sous-programme. 

Nous allons voir maintenant les cas où la valeur 
est 4 (SAVE) ou 3(LOAD). 

Pour SAVE, le sous-programme réalisant la 
commande QS et débutant à EF2EH nous 
apprend beaucoup de choses. 

Tout d'abord, il teste si le QD est prêt pour une 
écriture. Si Carry, non, donc saut au traitement 
des erreurs. Si oui, il demande le nom du fichier 
et va le placer (seul 1 6 caractères au maximum 
sont autorisés) à partir de 11A3H. Le sous- 
programme est à EC8DH. Malheureusement, 


il ne peut pas être utilisé tel quel par l'amateur 
pour son propre usage puisque si l'on fait Shift 
Break, il y aura retour au moniteur. Il faudra 
donc recopier ce sous-programme et modifier 
les octets EC9F,ECA0, ECA1 et y mettre LD 
HL, adresse de retour (21 xx xx) au lieu de 21 
5E EA qui fait retourner au moniteur. Le pro- 
gramme teste ensuite si on a entré un nom 
« vide » ce qui est interdit. Le nom est ensuite 
transféré aux octets 10F1H et suivants. 

Il demande ensuite l'adresse de début (placés 
dans 1 1 06H et 1 1 07H), l'adresse de fin ce qui 
permet de placer la longueur dans 1 104H et 
1 105H et enfin, l'adresse d'éxécution qui est 
placée à 1108H et 1109H. L'amateur averti 
remarquera qu'il y a un décalage de deux octets 
par rapport au mode de gestion des cassettes. 

Le code 01 H est placé dans 10F0H (pro- 
gramme en langage machine). 

Ensuite, le programme teste s'il existe déjà un 
programme du même nom sur le disque. C'est 
le but du sous-programme EF9F. Retour Carry 
si existe déjà. S'il y a eu une erreur de fonc- 
tionnement, le retour se fait Non Carry avec 
A 42BH d'où un saut au traitement des erreurs. 

Par contre, si A = 28H, cela signifie que le pro- 
gramme n'existe pas. On peut donc le charger 
sur le disque. 

On placera alors dans les mémoires : 

1 132 et 1 133 l'adresse du « titre » du pro- 
gramme (ici 10F0H) 

1 1 34 et 1 1 35 la longueur de ce titre (0040H 
pourquoi???) 

1 1 36 et 1 1 37 l'adresse du début de la zone 
à enregistrer 

1 1 38 et 1 1 39 la longueur à enregistrer. 

En plaçant 04 dans 1 1 30 et 04 dans 1 1 31 et 
en faisant CALL EOIOH, le programme a enre- 
gistré en deux morceaux, le premier contenant 
le titre et le second, le programme proprement 
dit. Le retour se fera Non Carry si tout est cor- 
rect et Carry s'il y a eu un problème (code d'er- 
reur dans A). 

On remarquera que l'adresse du début du pro- 
gramme se trouve aussi dans 1 1 06H et 1 1 07H, 
sa longueur dans 1 104 et 1 105 et l'adresse 
d'éxécution dans 1 108 et 1 109. Toutes ces 
valeurs sont enregistrées avec le titre (nom et 
code 01 dans 10F0H). 

Cependant, rien n'empêche de donner à 1 1 36, 

1 1 37, 1 1 38, 1 1 39 des valeurs différentes de 
celles de 1 106, 1 107, 1 104, 1105, ce qui peut 



dans certains cas permettre l'enregistrement 
de programmes qui auraient été déplacés en 
mémoire. 

L'examen plus complet du moniteur montre 
qu'il a été construit de façon à permettre l'en- 
registrement de longs programmes, par mor- 
ceaux. Supposons, pour fixer les idées que 
nous voulions enregistrer sur disque, la taille 
totale, l'adresse d'éxécution et le nom, et après 
avoir vérifié que le disque ne contenait pas un 
fichier (ou programme) de même nom, on pro- 
cédera comme suit. 

On placera dans 1132, l'adresse du titre 
(comme précédemment) 

Puis dans 1 1 34 et 1 1 35, la longueur de ce titre 
(code, nom, taille, adresse de début,...) 

On placera ensuite dans 1 1 36, 1 1 37 l'adresse 
du début du premier morceau à enregistrer dans 
1138, 1139 la taille de ce morceau. 

On placera 04 dans 1 1 30H et 00 dans 1 1 31 H. 

On fera CALL EOIOH ce qui va enregistrer sur 
le disque, un code 00 suivi du titre, puis un 
code 01 suivi du premier morceau. Pour le 
second morceau, on placera dans 1 1 36, 1 1 37, 

1 1 38. 1 1 39 son adresse de début et sa taille. 

On placera 01 dans 1 131 H et on fera CALL 
EOIOH, ce qui va enregistrer le second mor- 
ceau, à la suite du précédent (avec un code 01 
devant). 

Pour le dernier morceau, on remplira 1136, 

1 1 37. 1 1 38. 1 1 39 comme précédemment, et 
on placera 05H dans 1 1 31H. Call EOIOH enre- 
gistrera alors le dernier morceau précédé d'un 
code 05. De plus, le fichier ainsi construit sera 
« fermé » et considéré comme un seul bloc. S'il 
y a eu une erreur quelconque au cours dé l'en- 
registrement, tout le fichier sera effacé. 

En résumé, ce sont les bits 0 et 2 de l'octets 
11 31 H qui contrôlent le type 
d'enregistrement : 

bit 0 à 0 : il y a un titre à enregistrer 
bit 0 à 1 : il n'y a pas de titre à enregistrer, 
bit 2 à 0 : on enregistre un morceau mais le 
fichier reste prêt à recevoir d'autres 
données 

bit 2 à 1 : on enregistre le dernier morceau. Le 
fichier sera ensuite fermé. 

On remarquera qu'il n'est pas possible d'en- 
registrer seulement le titre : il y aura toujours 
enregistrement du titre et du premier morceau 
du programme. 



VOYONS ENFIN, 

LA COMMANDE LOAD. 

Commençons par décortiquer la commande OL 
(le programme débute à EEA7H). 

On teste évidemment si le Q.D. est prêt pour 
une lecture. Si oui, on demande le nom du 
fichier et il est écrit à partir de 11A3H. Le pro- 
gramme (CALL F25F) est utilisé. Il obligera la 
tete de lecture à reprendre le disque au début. 


Puis le disque est exploré : il y a chargement 
a partir de 1 0FOH des titres des divers program- 
mes trouvés sur le disque. Voyons déjà com- 
ment sont chargés ces titres (EEF7H). 

On place dans 11 32, 11 33 l'adresse de l'en- 

fiZZTcT le titre (ici 10F0H > et dans 
1 1 <m, 1 1 Jo la longueur de ce titre (ici 0040H). 

En fait ce qu'on écrit ici, doit être supérieur ou 
égal a ce qui est inscrit sur le disque, sinon il 

y aura refus de faire le chargement. On place 


03 dans 1130 et 00 dans 11 31 H. CALL 
DISKMP fait le chargement. 

Lorsque le bon nom a été trouvé sur le disque. 
En plaçant maintenant 01 dans 11 31 H, CALL 
E010H fera le chargement. Dans le cas où on 
doit lire un programme coupé en plusieurs mor- 
ceaux, on pourra, en faisant la même dernière 
opération, charger le second, le troisième,..., 
morceau. Le moniteur garde trace de la posi- 
tion du dernier fichier lu. 



En résumé, pour LOAD, on place 03 dans 
1 1 30, l'adresse dans 1 1 32, 1 1 33, la longueur 
de chargement dans 1134, 1135. 

Pour charger un titre, on place 00 dans 1131 
et CALL E010H 

Pour charger des programmes : 01 dans 1131 
et CALL E010H. 

Pour terminer cette rapide description, préci- 
sons que lorsqu'un programme lu sur cassette, 
disquette ; Quick-Disc, Ram optionnelle, est 
lancé, I adresse d'éxécution se trouve dans IX 
et surtout C =00 et B =00 (si RAM), B =01 (si 
cassette), B =02 (si Floppy Disc), B =03 (si 
Quick-Disc) 

B. Kokanoski 




PICO D.A.O. 


Pourquoi PICO ? Parce que ce 
programme doit être considéré 
comme une trame de base qui 
vous permettra de créer votre 
propre D.A.O. (Dessin Assisté 
par Ordinateur) personnalisé au 
gré de votre imagination. Cette 
version, très dépouillée possède 
néanmoins des instructions puis- 
santes spécifiques au MZ 800. 


Entrez le programme puis tapez RUN. L'écran 
apparaît avec 5 cases de fonctions à gauche, 
1 6 cases de couleurs en bas et un curseur gra- 
phique. Il vous suffira ensuite de déplacer ce 
curseur sur la case correspondante et de vali- 
der pour utiliser la couleur ou la fonction choi- 
sie. La case supérieure permet de modifier la 
couleur du dessin en cours. Le curseur dans 
cette case puis dans la case de couleur choi- 
sie effectue cette modification. La case mar- 
quée d'un visage permet de dessiner directe- 
ment à l'écran. L'action simultanée de la barre 
d'espace et des touches curseur allume ou 
éteint le point correspondant au curseur. La 
case « / » permet de tracer des droites. Le case 
« 0 » dessine des cercles. La case « BOX » 
trace des cadres ; et la case « PI » colorie une 
zone écran délimitée précédemment. Toutes 
ces commandes possèdent un contrôle visuel 
du graphisme recherché ; seul le relâchement 
de la barre d'espace validera le dessin. Une pre- 
mière modification de la variable J de la ligne 
60 vous permettre d'utiliser le JOYSTICK 1 
(J = 1 ) ou 2 (J=2). 

Ce programme, très court, démontre qu'une 
utilisation judicieuse des nombreuses possibi- 
lités du BASIC MZ 800 permet de faire beau- 
coup en peu de lignes. 


10 ’ ********************************* 

20 '*** D.A.O. **» 

30 '*** Christian MARTIN 06/85 *** 

40 'y******************************** 

60 '«A******************************* 

70 ’**♦** I N I T I AL. I S AT I ON ***** 

80 ’ ********************************* 

90 X“32a Y=176: C®2s M=0; CI-'O* GA® 1 1 BA«198t D0*318s HA»1 
100 INI T" CRT a M2" 

110 BOXE 130,0,20, 178a BOXE 1330, O, 319, 178s BOX C 1 330, 180,319, 199s BÜXC 1 30, 180,28, 199 
1 20 RESTQRE 1 40 a FOR I =25TQ 1 738 TEP30 . 6 a READD* a BOX C 1 3 4 , 1,24, I +27 . 6 S SYMBOL EU 7 , 1 +3 , D* 
,2, 3s NEXT a BOXE 1 35, 3, 24, 20 
130 PAINTCG36, 4, 1 
1 40 DATA “ 1 , « #*• , " ta» , *• 

150 F0RI«43T03128TEP17* BOXE 131, 185, 1 + 15, 194aNEXT 
160 F0RI*0T015s PAINTEI 345+ < 1*17), 187, la NEXT 
170 '«y******************* «y**** ****** 

180 ’**¥** MAIN ROUTINE ***** 

190 ********************************** 

200 F®PQINT ( X , Y) s BETC 153X, Y 
210 A«STRIG(J> sB=STICK(J> 

220 IF ( X< 3 U AND < A= 1 > THENGOSUB " MOD " a X 1 * X s Y 1 ® Y s G0T03 1 0 
230 I F ( Y > 1 77 ) AND < A® 1 ) THENGOSUB M COUL " s X 1 « X a Y 1 ® Y a GQTÜ3 1 0 
240 Xl»XsYl=Y 

250 ONBGOSUB 360 , 370 , 380 , 390 , 400 ,410,420,430, 250 
260 I F ( A® 1 ) AND ( M*0 > THEN SET EC3Xl,Yla GÜTQ200 
270 IF <A=1 ) AND (M*l ) THENGOSUB "LIGNE" 

280 IF ( A*1 ) AND < M® 2 > THENGOSUB "CERCLE" 

290 I F < A* 1 ) AND < M®3 ) THENGOSUB " BO I TE " 

300 I F < A® 1 ) AND < M=4 ) THENGOSUB " REMPL " 

310 SETCF3X1, YlaGQTQ200 

320 ’ ********************************* 

330 ’***¥* SOUS-PROGRAMS ***** 

340 ' ********************************* 

350 ’ DIRECTIONS 

360 Y*Y- 1 *- ( Y >HA ) a RETURN 

370 Y*Y-1*-<Y>HA) a X=X+1*- < X<DO) s RETURN 

380 X®X+1*-(X<D0> s RETURN 

390 X=X+1*-<X<D0) a Y«Y+1*- <Y<BA) a RETURN 

400 Y*Y+1*-(Y< BAI s RETURN 

410 Y»Y+1*-(Y<BA) s X®X-1*~ ( X >GA) s RETURN 

420 X=X-1*-<X>GA> s RETURN 

430 Y»Y-1*-<V>HA) a X*X-1#-IX>GA> aRETURN 

440 * CHOIX MODE 

450 LABEL "MOD" 

460 IF (Xz5)0R(X>23)THENRETURN 
470 I FF ®0THENF=4 

480 IF <Y>27)AND(Y<50)THENPAINTC037,M*30+2S, laPAINTE437,28, ltM«Û a RETURN 
490 IF < Y>57> AND ( Y<81 ) THENPAINTC037, M*30+28, 1 s PAINTC437, 58, 1 a M® 1 a RETURN 
500 I F (Y >88 ) AND ( Y< 1 1 1 ) THENPA I NT C 0 3 7 , M*30+28, 1 s PA I NT C 4 3 7 , 89 , 1 a M=2 a RETURN 
510 IF < Y>1 17) AND <Y< 142)THENPAINTC037, M*30+28, 1 s PAINTC437, 1 18, 1«M*3|RETURN 
520 IF (Y>149) AND<Y<173)THENPAINTC037,M*30+28, 1 a PA1NTE4J7, 149, 1 iM*4s RETURN 
530 RETURN 

540 ' Chmt COULEUR 

550 LABEL "COUL" 

560 IF f X<43) OR < X>313) OR < Y< 185) OR ( Y>194) THENRETURN 

570 C®PÜ1NT CX+1, Y) aCl=Oa IFPOINT (8, Q> =OTHENBOXC 1 35,3, 24, 20s Cl=l 

580 PA INT £C 38, 6, Cl s RETURN 

590 » TRACE LIGNE 

600 LABEL “LIGNE" 3 GA S 31 S BA=177 
610 XF=X s YF*Y 

620 A«STRIG < J ) s IFA®0GQTQ620 

630 ONST I CK ( J ) GOSUB 360,370,380,390,400,410,420,430,250 
640 LINECC3XF, YF, X, Y 

650 IFSTICK ( J) ®0G0T0650a£LS£BLlN£XF, YF, X, Y 

660 IFSTRIG < J)®0THENLINECC3XF , YF, X, YsGA*l a BA=198s RETURN 

6/0 GOT 0620 

680 » TRACE CERCLE 

690 LABEL "CERCLE" 

700 XF=X:YF®YaD0®2O0 

710 V1=X~31 « V2= 1 77- Y a V3=3 1 8- X a V4« Y- 1 a X =0 s Y=0 

720 1FV1<D0THEND0=V1 

730 I F V2< DOTHENDO® V2 

740 I FV3< D0THEND0-V3 

750 I F V4< DOT HEND0=V4 

760 GA®— DO 

770 A=STRI6<J> : IFA=0G0T0770 

780 ONST I CK < J ) GÜSUB 360,370,380,390,400,410,420,430,250 
790 CIRCLECC3XF , YF, ABS ( X) 

800 IFSTICK (J) ®0G0TÛ80ü:ELSECIRCLEE03XF, YF, ABS (X) 

810 1FSTRIG<J)*0THENCIRCLECC3XF, YF, ABS (X) s X=XF+Xa Y*YF+YaGA aB l a DQ=31Bs RETURN 
820 G0T0770 

830 ’ TRACE BOITE 

840 LABEL"BÛI TE" 

850 XF=XaYF=YaBA=177aGA®31 
860 A=STRIG<J>a IFA=ÛGÛT086Û 

870 0NSTICK(J)60SUB 360,370,380,390,400,410,420,430,250 
880 B0XCC3XF, YF, X, Y 

890 I FS T I CK < J ) ®06GT0890 s ELSEBOX C03XF,YF,X,Y 

900 I FSTR I G ( J ) =QTHENBQX CC3XF,YF,X,Ys BA= 1 98 a GA® 1 a RETURN 

910 G0T0860 

920 REMPLISSAGE 

930 LABEL " REMPL " 

940 PAINTCC3X+1 ,Y, 1,2, 3, 4, 5, 6, 7, 8, 9, 10,11,12, 13, 14, 15: F=Ca RETURN 



LMSURMZ 


Celle 4 e leçon va nous permettre 
(enfin !) (('entrer dans le vif du 
sujet. Nous allons élaborer noire 
premier programme LM et le 
décortiquer, instruction par ins- 
truction. Ensuite, il vous faudra 
relever les manches car vous 
aurez à taper, en HEXA l'un des 
utilitaires indispensables à tout 
programmeur LM : le désassem- 
nleurZ80. 


LE PROGRAMME 

Comme « Compte » de notre première leçon, 
son inutilité flagrante n'a d'égal que son inté- 
rêt pédagogique. Il consiste à emplir l'écran du 
caractère de la touche tapée au clavier. La 
figure 1 présente son organigramme ; la figure 
2 présente le fonctionnement de cet organi- 
gramme sous Basic ; la figure 3 présente le pro- 
gramme LM entré à l'aide d'un assembleur. 

Passons à son étude. 

CD1B00. CALL001B 

CALL (codé CD), en LM, c'est exactement le 
GOSUB du Basic ; mais au lieu de lui indiquer 
un numéro de ligne, il faut lui spécifier l'adresse 
à laquelle démarre le sous-programme appelé. 
Ce sous-programme devra impérativement se 
terminer par l'instruction RET (C9) qui provo- 
que un retour à l'instruction qui suit immédia- 
tement le CALL. Tout cela n'est pas nouveau, 
nous connaissons parfaitement cette structure 
en Basic. CALL est composé d'un octet de 
commande (CD) et de l'adresse 1 6 Bits appe- 
lée, codée sur les 2 octets suivant. Bref, un rêve 
de simplicité et de logique... eh bien non ! car 
une règle aussi élémentaire qu'empoisonnante 
du LM veut que toute l'adresse 16 Bits codée 
sur 2 octets soit écrite à l'envers. Vous remar- 
querez en effet que les codes machine de l'ins- 
truction CALL 001 B sont CD IB 00; donc 
inversés. Ecrire CD 00 1 B reviendrait à deman- 
der au Z80 d'aller lire un sous programme en 
1 B00 et nous conduirait irrémédiablement vers 


un superbe plantage dans le cas de notre pro- 
gramme. Cette règle doit toujours rester pré- 
sente lorsqu'on programme directement en 
codes machines. En assembleur, le programme 
assembleur se charge d'inverser automatique- 
ment les octets. 

L'adresse 001 B appelée représente le point de 
départ de l'un des multiple utilitaires contenus 
dans le moniteur ROM. Celui-ci a la même fonc- 
tion que l'ordre GET du Basic. Au retour de ce 
sous-programme, le registre A contiendra le 
code ASCII de la touche tapée au clavier ou 0 
si aucune touche n'a été tapée. Avant de con- 
tinuer, il nous faut donc savoir si A contient 
une valeur différente de 0 ; c'est le rôle de 

CP 00. FE 00 

CP (codé FE) est une instruction de comparai- 
son qui va nous indiquer si le registre A est égal 
à 0 ou non. L'instruction CP 00 demande donc 
au Z80 de comparer la valeur de A à 0. Pour 
effectuer cette opération, le microprocesseur 
va soustraire la donnée qui suit la commande 
CP, et indiquer le résultat de cette opération 
dans les bits du registre F. F, c'est le registre 
d'indicateurs que nous avons survolé dans une 
précédente leçon. La valeur de 6 et ses 8 bits 
(0 et 1 ) dépend du résultat de l'opération pré- 
cédente (voir encadré). Dans notre cas, le bit 
Z nous intéresse plus particulièrement. Après 
une opération, il prend la valeur 1 si le résultat 
est nul ou la valeur 0 en cas de résultat diffé- 
rent de 0, c'est le bit Z qui conditionne l'ins- 
truction suivante : 

JP Z, C000. CA 00 CO 

Dans l'instruction JP Z, il faut considérer 2 
fonctions différentes : la commande JP et la 
condition Z. JP est une instruction de saut très 
similaire au GOTO du Basic. Comme pour 
CALL, il faut lui spécifier, sur 2 octets INVER- 
SES, l'adresse à laquelle le programme devra 
se poursuivre. Dans notre cas, la commande 
JP est suivie de Z, ce qui veut dire que le saut 
ne s'effectuera que si notre bit Z est à 1, ... 
donc si le résultat de l'opération précédente 
conduit à un résultat nul... donc si A est égal 
à 0 ... donc si aucune touche n'a été pressée 
au moment de l'appel du sous-programme GET. 
Si Z = 0 (touche pressée), le Z80 ignorera cette 
commande de saut et passera à la commande 
suivante. Nous avons donc une boucle d'at- 
tente, d'un caractère dont nous sortirons dès 
qu'une touche aura été détectée. 

Au moment de cette sortie, a contient toujours 
le code ASCII de la touche pressée. Les codes 


d'affichage à l'écran étant différents, sur MZ, 
des codes ASCII, nous allons devoir modifier 
le contenu de A en conséquence ; c'est le rôle 
de : 

CALL OBB9. CD B9 OB 

OBB9, c'est justement l'adresse d'un autre 
sous-programme utilitaire du moniteur ROM qui 
se charge de cette tâche. Lors de son appel, 
le registre A doit contenir une valeur ASCII, à 
son retour, A contiendra le code d'affichage 
correspondant. Notez que CALL (CD) est tou- 
jours suivi de l'adresse d'appel inversée (B9 OB 
pour l'appel à 0BB9). 

Le travail suivant va consister à mettre dans 
chaque adresse mémoire vidéo le contenu de A. 

LD DE, D000. 11 00 DO 

LD (de LOAD) est certainement l'instruction la 
plus utilisée en LM ; elle permet d'entrer une 
valeurquelconque dans tout registre 8 bits ou 
1 6 bits ou de transférer le contenu d'un regis- 
tre dans un autre. Dans l'instruction qui nous 
concerne, le registre DE (16 bits) est chargé 
par la valeur D000 qui correspond à la première 
adresse de la mémoire vidéo. 

LD HL, D3E8. 21 E8 D3 

La valeur D3E8 est placée dans le registre HL ; 
elle correspond à la dernière adresse vidéo. 
D3E8-D000=03E8 (1000 en décimal), cela 
correspond à notre écran de 25 Iignes40 
caractères. 

LD (DE), A. 12 

Encore une instruction de transfert de données 
qui, à la différence des 2 précédentes fait inter- 
venir une notion de pointeur indiquée par les 
() placées autour de DE. Le contenu de A sera, 
en effet placé dans l'adresse ayant pour 
numéro DE. DE contenant actuellement la 
valeur D000, A sera donc placé dans l'adresse 
D000. DE ne sera pas modifié puisqu'il ne s'agit 
pas d'un transfert direct, mais servira unique- 
ment de pointeur indiquant le numéro d'adresse 
où doit être transféré le contenu de A. A noter 
également que A, comme tout registre émet- 
teur lors d'un transfert de données, conserve 
sa valeur d'origine après le transfert. Pour nous 
résumer plus concrètement, nous venons de 
placer dans le coin supérieur gauche de l'écran 
le caractère de la touche tapée au clavier. Il ne 
nous reste qu'à répéter cette opération 999 
fois... 

INC DE. 13 

Une nouvelle instruction qui ne demande qu'un 
seul octet et qui pourrait se traduire, en Basic 




par DE = DE + 1 . INC (de incrémenter) signifie 
donc ajouter 1 au registre considéré, ici DE dont 
le contenu vaut maintenant D001. L'instruc- 
tion INC ou son inverse DEC (de décrémenter : 
soustraire 1) s'applique à tous les registres 
généraux du Z80. Cette instruction nous per- 
met, dans le cas présent de progresser d'une 
case dans la RAM vidéo. 

SBC HL, DE. ED 52 

SBC, c'est une instruction de soustraction avec 
retenue (de Substracht with Carry) effectuée 
généralement entre 2 registres 8 ou 16 bits. 
Nous reviendrons ultérieurement sur la retenue. 
La logique de ce type d'instruction est la sui- 
vante : le contenu du second registre de l'ins- 
tuction (DE dans notre cas) est soustrait au 
contenu du premier registre (HL) et le résultat 
est placé dans ce premier registre. En Basic cela 
nous donnerait HL = HL -DE. HL est donc 
modifié mais pas DE (le second registre). 
Comme lors de toute opération mathématique, 
le Z80 positionne les registres de F en fonc- 
tion du résultat de l'opération. Le bit Z de ce 
registre va encore nous être utile pour la suite 
du déroulement de ce programme; 

JPNZ.C00A.C2 0AC0 

Nous retrouvons ici une instruction très pro- 
che du JP Z, que nous avons déjà étudié. La 
seule différence est que la condition d'exécu- 
tion de cette instruction va être inverse. Le saut 
sera effectué si, après test du bit Z, celui ci indi- 
que que le résultat de la soustraction précé- 
dente n'est pas égal à zéro (NZ=No Zéro), 
donc si ce bit est à zéro. La soustraction pré- 
cédente et ce test permettent de savoir si DE, 
par incréments successifs, est arrivé à la valeur 
D3E8. Si ce n'est pas le cas, HL-DE donnera 
un résultat positif et provoquera une nouvelle 
boucle d'écriture d'une adresse en RAM. Si 
c'est le cas, la condition NZ ne sera pas res- 
pectée, la commande de saut ne sera pas exé- 
cutée ètle microprocesseur passera à l'instruc- 
tion suivante... 

JP C000. C3 00 CO 

Si l'on a bien compris le mécanisme des ins- 
tructions précédentes, il est facile d'en conclure 
que le programme n'aboutira à cette instruc- 
tion que lorsque les 1 000 adresses de la RAM 
vidéo auront reçu le contenu de A. Nous avons 
étudié les sauts conditionnels, nous allons ter- 
miner par le plus facile : Ce JP saute en effet, 
sans « réfléchir » à l'adresse qui lui est indi- 
quée. C'est exactement le GOTO du Basic. 
L'adresse C000 correspond au début du pro- 


gramme ; nous repartons donc pour un nou- 
veau cycle d'attente de caractère et d'affichage 
et ce, jusqu'à épuisement de l'opérateur et 
interruption par un fatal ALL RESET. Fatal n'est 
pas le mot puisque, contrairement à une idée 
reçue, un RESET n'efface pas les programmes 
en mémoire. Pour vous en convaincre, il vous 
suffira de retaper, sous moniteur : JC000 pour 
relancer ce programme ; ou DCOOO pour en lis- 
ter les codes HEXA. 

Pour clore ce chapitre et répondre à une ques- 
tion très souvent posée au Club, nous allons 
passer en revue tous les moyens d'entrer ce 
programme LM dans le MZ. 

• SOUS-MONITEUR 

Une commande du moniteur est prévue pour 
l'entrée de données en mémoire, il s'agit de 
« M ». Tapez MC000 puis la touche CR. Vous 
verrez alors apparaître le numéro d'adresse 
demandée suivi d'une valeur HEXA 8 bits cor- 
respondant au contenu actuel de l'adresse 
mémoire C000, puis le curseur. Sans modifier 
l'emplacement du curseur, tapez le premier 
code HEXA du programme (CD) puis la touche 
CR. Apparaît alors le numéro d'adresse suivant 
suivi de son contenu et du curseur. Tapez le 
second code puis la touche CR... et ainsi de 
suite jusqu'au dernier code du programme (CO). 
Après un dernier CR, tapez SHIFT-BREAK. Pour 
vérifier vos entrées, tapez DCOOO puis CR, 
vous aurez la liste de tous vos codes entrés. 
Pour lancer le programme, tapez JC000. 
Pour sauvegarder ce programme, tapez : 
SCOOOCOIACOOO 
Filename ? TITRE 

COOO correspond à l'adresse de début du pro- 
gramme, C01A à l'adresse de fin, le second 
COOO, à l'adresse d'éxécution. Ce programme 
s'auto-éxécutera donc automatiquement dès 
la fin de son chargement. 

• SOUS BASIC 

Un bel exemple valant mieux qu'un long dis- 
cours, l'étude du programme basic 4 vous four- 
nit toutes les indications pour entrer tout pro- 
gramme LM sous Basic. Attention toutefois que 
ce programme LM n'empiète pas dans la zone 
du Basic, les effets seraient alors surprenants ! 
Pour récupérer le Basic après l'exécution du 
programme LM, taper la touche CTRL puis 
simultanément le bouton RESET. (Uniquement 
pour MZ 700 et 800). 

• A L'AIDE D'UN ASSEMBLEUR 
L’assembleur, c'est l'outil idéal pour program- 
mer LM. Les notices des différents assembleurs 
étant suffisamment explicites, il vous sera très 
facile d'entrer ce programme. 


• A L'AIDE DE SAISIE LM 
Aucun problème pour entrer et sauvegarder 
notre programme à l'aide de SAISIE LM paru 
dans notre N 0 1 2 puisqu'il démarre en COOO qui 
est une adresse admissible par cet excellent uti- 
litaire de saisie. 

Quelques remarques pour conclure. Ce pro- 
gramme démontre, s'il le fallait encore la ful- 
gurante rapidité du Langage machine, son ava- 
rice chronique en taille mémoire (26 octets) et 
sa supériorité, dans certains domaines (com- 
mandes conditionnelles) à un langage dit évo- 
lué comme le Basic. L'auteur utilise quotidien- 
nement ce langage de programmation et sem- 
ble être atteint, aux dires de ses proches, d'une 
certaine déformation, commune aux mordus de 
l'octet, tendant à considérer certaines tournu- 
res de programmation comme des évidences 
alors qu'elles représentent un casse-tête insur- 
montable pour le néophyte. C'est pourquoi il 
est possible que certains points de ces leçons 
aient été mal expliquées ou insuffisamment 
développés. N'hésitez pas, dans ce cas, à nous 
le faire savoir pour que nous revenions sur ces 
détails et améliorons le contenu de nos prochai- 
nes leçons. 
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Figure 1 





10 SET fl* 

20 IF «*="" GOTO 10 
30 A=ASC(A*> 

40 DE=*DOOO 

50 HL**D3E8 

60 POKE DE, A 

70 DE-DE+1 

80 HL«HL— DE 

90 IF HLOO GOTO 50 

100 GOTO 10 
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Figure 3 


10 FORI»*COOO TO *C01 A 
20 READ A 
30 POKE I , A 
40 NEXT 11 END 

50 DATA *CD , * 1 B , *00 , *FE , *00 , *C A , *00 
60 DATA *C0,*CD,«B9, *0B, *1 1 , «00, «DO 
70 DATA *21 , *EB, *D3, *12, *13, *ED, *52 
BO DATA *C2,*0E,*CO,«C3,*0O,*CO 
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7 

6 

5 

4 

3 

2 

1 

0 

H 

a 

0 

0 

0 

% 

0 

C 


Le registre d'indicateurs F 


C bit de retenue (CARRY) 

N ajustement décimal ADD et SUB 

PA/ parité, dépassement de capacité (Parity 

overflow) 

H demi-retenues (Half carry) 

Z bit de test zéro 
S bit de signe 
X non utilisé 



Un désassembleur convertit en mnémoniques 
officiels Z80 les codes lus en mémoire et vous 
permet ainsi de contrôler ou d'étudier un pro- 
gramme en Lm écrit en mémoire. Cette version 
due à un Sharpentier d'élite, Monsieur PERRET 
demande l'adresse de départ du désassem- 
blage en HEXA puis affiche, page par page, les 
codes contenus dans cette portion de mémoire. 


Un appui sur CR passe à la page suivante, un 
appui sur espace provoque la demande d'une 
nouvelle adresse de désassemblage. Introdui- 
sez SAISIE LM et retenez votre souffle car 
l'idéal, pour éviter les sauvegardes intermédiai- 
res serait que vous saisissiez ce programme en 
une seule fois. Dès le dernier octet entré, véri- 
fiez très soigneusement chaque ligne et effec- 
tuez une sauvegarde sur cassette. Le plus beau 
programme LM que vous puissiez posséder 
étant le Basic ; pour l'étudier, il vous suffira 
d'entrer votre Basic, puis de taper : 

LIMIT $ AOOO 

LOAD « DESASSEMBLEUR » 

USR ($A000) 

Il ne vous restera plus qu'à découvrir les com- 
mandes que nous avons déjà étudiées. 
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80 K 


LANGAGE PILOT 

{S BASIC 3 ou 4) 

Ce programme est un interpréteur Pilot écrit en Super-bnsicpour 
le Sharp MZ 80 K. Il a été inspiré par des programmes similaires 
publiés par le club anglais Sharpsoit Ltd et la revue Creative Corn- 

{ luting. Son écriture en Basic permettra à l'utilisateur de le modi- 
ier, de l'améliorer ou de changer la syntaxe des instructions s'il le 
désire. 

Ce Pilot est écrit sous forme structurée (sauf pour les 4 premières 
lignes qui sont des « astuces de programmation » permettant le pas- 
sage de variables numériques entre le Pilot et le Basic et qui ne 
devront en aucun cas être modifiées sous peine de voir (Interpré- 
teur Pilot et éventuellement le Basic lui-même, se comporter de 
façon aberrante !). 
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Lors du chargement de l'interprétateur, le titre 
s'affiche suivi de la taille mémoire disponible 
puis du symbole d'attente > suivi du curseur 
clignotant. 

L'interprétateur Pilot est alors à la disposition 
de l'utilisateur. Celui-ci peut alors entrer soit une 
commande directe, soit une ligne de programme 
Pilot commençant par un numéro de ligne com- 
pris entre 0 et 255 (ceci parce que les lignes 
du programme Pilot sont stockées dans le 
tableau P§). Toute ligne commençant par un 
numéro de ligne supérieur à 255 provoquera 
une erreur. 

Une remarque importante : 

L'entrée de ces lignes de programme Pilot se fait 
en réponse à un INPUT et donc l'utilisation de 
la virgule fera perdre une partie de la ligne 
entrée. 

L'entrée des lignes Pilot suit les règles classi- 
ques du Basic, c'est-à-dire (par exemple) que 
pour effacer une ligne, il suffit d'entrer son 
numéro suivi de CR. 

Les commandes directes sont les suivantes : 
! CR effacera tout l'écran et remettra le 
curseur en position Home. 

H CR affichera la liste des commandes 
directes (HELP) 


R CR lance l'exécution du programme Pilot 
à sa première ligne (RUN) 

N CR efface tout le programme. Pour éviter 
tout fause manœuvre, l'interprétateur 
demande confirmation de cette com- 
mande (NEW) 

E CR redonne le contrôle au Basic (EXIT) 

S CR enregistre un programme Pilot sur 
cassette (le titre doit avoir au plus 
10 caractères). (SAVE) 

G CR charge en mémoire le programme 
Pilot à partir de la cassette. Le Pilot 
demande le nom du programme et le 
charge. Dans le cas où l'on ne veut 
pas entrer le nom de ce programme, 
on entrera - en réponse à la 
demande du Pilot. Dans ce cas, le 
premier enregistrement trouvé sera 
chargé en mémoire. (GET). 

L CR liste de tout ou partie du programme 
Pilot (LIST) 

D CR efface une partie du programme 
(DELETE) 

P CR active ou non l'imprimante pour les 
listings (PRINTER) 

M CR renumérote tout le programme. L'utili- 
sateur a le choix du nouveau numéro 
de la première ligne et de l'incrément 
sur les numéros. Cependant, si par 
suite de la renumérotation, certaines 


lignes devaient avoir un numéro plus 
grand que 255, elles seront perdues 
(RENUM). 

A CR numérote automatiquement les 
lignes lors de l'entrée ; l'utilisateur a 
le choix du premier numéro et de 
l'incrément. Cette numérotation s'ar- 
rête automatiquement dès que le 
numéro de ligne dépasse 255 ou 
que la ligne portant ce numéro 
existe déjà en mémoire. L'utilisateur 
peut arrêter cette numérotation en 
entrant Z Cr après l'affichage du 
numéro de ligne. Un signal sonore 
sera alors entendu (AUTO). 

Toute commande invalide provoquera un signal 
sonore. 

Lors de l'entrée des lignes de programme Pilot, 
une analyse syntaxique sommaire est effectuée 
par l'interpréteur qui ne teste que la présence 
de : dans la ligne. (Sur ce point des améliora- 
tions sont possibles). 

Une ligne Pilot se compose au plus de 4 par- 
ties (sans compter le numéro de ligne qui n'in- 
tervient que pour le classement des lignes). 


PARTIE I 

Il s'agit d'un seul symbole qui indique le type 
d'instruction contenue dans la ligne. Les 
symboles autorisés seront xACDEHJMP 
Q R T U V X 


PARTIE II 

Cette partie II qui peut (et doit, dans le cas où 
la partie I est x) ne pas exister est constituée 
soit de la lette Y (Yes) ou de la lettre N (No). 

Ces lettres font référence à un drapeau interne 
(variable Basic MF) commandé par l'instruction 
M. 

Lorsque la partie II de la ligne est Y, cette ligne 
sera exécutée si le drapeau est Yes (MF = I) 
ou sautée si le drapeau est No (MF = 0). 
Les choses sont inversées si la lettre est N. 

L'absence de Y ou N conduira le Pilot à tou- 
jours exécuter la ligne. 


PARTIE III» 

Il s'agit de : qui est obligatoire. 


PARTIE IV 

On trouve à cet endroit ce que doit faire le Pilot 
et qui va maintenant être explicité. 


x : début : 

va stocker l'étiquette "début" dans le tableau 
des étiquettes. Ces étiquettes serviront dans 
les instructions de saut (J) et d'appel de sous- 
programmes (U). Par exemple ; JY : début fera 
poursuivre l'exécution du programme à la ligne 
référencée par l'étiquette "début" (si le dra- 
peau est Y). 

Les tableaux de stockage sont L et L§. Dans 
l'interpréteur initial, ces tableaux sont définis 
par DIM L(20), L§(20) ce qui doit être suffisant 
dans la pratique. Cependant l'utilisateur peut 
très bien modifier ces dimensions. Dans le cas 
où plusieurs lignes portent la même étiquette, 
seule la première ligne pourra être atteinte par 
un Jump (J) ou un saut à un sous-programme 
(U). 

J : début 

cette instruction est, comme nous venons de 
le voir, l'instruction de saut à la ligne x : début. 

R : ceci est commentaire 
Une telle ligne est toujours sautée par l'inter- 
préteur. Elle ne sert qu'à contenir des 
commentaires. 

Q: 

Quit est l'instruction d'arrêt du programme Pilot 
et de l'interpréteur Pilot. Le contrôle est rendu 
au Basic. Il s'agit donc d'un retour au Basic, 
à partir d'un programme Pilot. En temps nor- 
mal, un programme Pilot s'arrête de lui-même 
lorsqu'il n'y a plus de lignes à exécuter et on 
retrouve alors le « mode éditeur ». 

U : étiquette 

poursuit l'exécution du programme au sous- 
programme commençant par la ligne x : éti- 
quette. La rencontre de l'instruction E : fera 
revenir au programme principal. On peut imbri- 
quer jusqu'à 20 sous-programmes (la pile est 
le tableau ST et le pointeur de pile est SP). 

A: ... 

est le Input du Pilot (instruction Accept). Cette 
instruction est utilisée de trois façons 
différentes. 

A : stocke la donnée entrée au clavier 

dans la variable Basic B§ pour utili- 
sation éventuelle dans l'instruction 
M. 

A:N§ stocke la donnée entrée au clavier 
dans la variable Basic B§ et cette 
fois dans la variable Pilot N§ (ces 
variables sont stockées dans le 


tableau V§). Bien remarquer que 
seule une lettre peut être utilisée 
avant §. 

A :X# stocke la valeur numérique entrée au 
clavier dans la variable Basic et Pilot 
X. En effet, l'utilisateur pourra 
remarquer que l'interpréteur n'utilise 
aucune variable Basic dont le nom 
est constitué d'une seule lettre. Cela 
permet donc de faire coïncider ces 
variables Basic et Pilot. Le passage 
des valeurs entre Pilot et Basic se 
fait par quelques Pokes qui modi- 
fient les lignes 20 et 30 de l'inter- 
préteur et par appel des sous pro- 
grammes des lignes 20 et 30. 

En conséquence, lors de toute modi- 
fication du Pilot, il faudra bien pren- 
dre garde à ne pas modifier le début 
du programme (le chiffre de la ligne 
10 peut être changé mais il doit tou- 
jours être constitué de 4 caractères) 
et ne pas utiliser des variables Basic 
dont le nom ne comporte qu'une 
seule lettre. 

M:nom 

(Match) compare la dernière variable alphanu- 
mérique entrée par A (et donc stockée dans la 
variable Basic B§) avec la chaîne "nom". S'il 
y a coïncidence, le drapeau MF est mis à I et 
sinon, il sera mis à 0. 

On peut ici faire des testes multiples en utili- 
sant le OU logique (codé !). Exemple : M : 
noml ! nom 2 ! nom 3. 

C:X = expression 

(Compute) est l'instruction de calcul. La varia- 
ble est une variable numérique Pilot ou Basic 
(donc une seule lettre pour le nom) et expres- 
sion est une formule Basic. Exemple : C:A = 
RND(IO). 

Xxondition 

est une instruction de test sur les variables 
numériques. La condition est écrite en basic et 
son résultat est traduit par le drapeau MF. 
Exemple : X:(C< 10) 

V:n1;n2 

place le curseur au point de coordonnées ni ,n2 
(il s'agit de l'instruction Basic Cursor). Bien 
remarquer le point virgule entre les deux 
arguments. 

D:n1;n2 

est l'instruction Move ni ,n2 du basic. 


P:k;n1;n2 

est l'instruction Plot k,n1,n2 du basic. 

T expression ou H expression 

impriment sur l'écran « expression » à partir de 
la position du curseur. T fait ensuite passer à 
la ligne alors que H laisse le curseur derrière 
ce qui vient d'être écrit. 

Dans « expression » on peut utiliser des varia- 
bles alphanumérique Pilot (ex:N§) ou des varia- 
bles numériques (ex:C #). 

Par exemple, le programme suivant : 

T:Quel est votre prénom ? 

A:X§ 

T:Bonjour X§ 

affichera « Quel est votre prénom ? ». L'utili- 
sateur entre alors (par exemple) Pierre et le Pilot 
va alors afficher « Bonjour Pierre ». 
Remarque : 

T: fait passer à la ligne suivante. 

T:! efface l'écran. 

Voici maintenant quelques exemples de pro- 
grammes en Pilot. 


0 *î DEBUT 

1 Tî! 

2 C!fl*INT<RNDd000>> 

3 C:C=INT<RND<A>> 

4 TUE CHOISIS UH NOMBRE ENTRE 0 ET fl# 

5 Tï 

6 Tïfl UOUS DE LE TROUVER. 

7 Ci 1=0 

8 *i RECOMMENCE 

9 Ti 

10 Hi VOTRE NOMBRE i 

11 Ai A# 

12 Ci 1*1+1 

13 Xî <fl=C) 

14 Ti 

15 TV i BRAVO ! VOUS AVEZ TROUVE EN I# ESSAIS 

16 JViFIN 

17 Xi<A<C> 

18 TV î TROP PETIT RECOMMENCEZ 

19 JYi RECOMMENCE 

20 TiTROP GRAND RECOMMENCEZ 

21 Ji RECOMMENCE 

22 *iFIN 

23 Ti 

24 T i VOULEZ VOUS RECOMMENCER ? 

25 Ai N* 

26 Mi OUI 

27 JVi DEBUT 

28 TiAU REVOIR 


0 ♦ : DEBUT 

1 TM 

2 TïEQIJRTIONS DU SECOND DEGRE 

3 Tï ■ 

4 T: 

5 Hï C oefficient fi: 

6 R: R# 

7 T: 

8 H: Coefficient Bï 

9 RïB# 

10 Tï 

11 Hï C oefficient Cï 


12 

fi 

!C# 

13 

T 


14 

C 1 

D=B+B~4*fi*C 

15 

C 

E*SQR < RBS CD)) /2/fi 

16 

C 

:U=-8/2/fi 

17 

X 

(D>0) 

18 

JVïDISC. >0 

19 

X 

<D~0) 

20 

JVïDISC„=0 

21 

T 

RacinessU#+/~i.E# 

22 

J 

FIN 

23 

% 

DISC.=0 

24 

T 

Racine double: U# 

25 

J 

FIN 

26 

* 

DISC. >0 

27 

c 

y=u+E 

28 

c 

U=U-£ 

29 

T 

RacineïU# 

30 

T 

Racine: W# 

31 

* 

FIN 

32 

T 


33 

H 

ON RECOMMENCE : 

34 

fi 

N$ 

35 

ri 

OUI 

36 

JV: DEBUT 

37 

T: 

fiU REUOIR ! 



Le listing de l’interpréti 


10 GOTO2480 
20 U*R0« RETURN 
30 R0*U: RETURN 
40 Î)"T";RETURN 

50 REM *##**#****>m<*********#*»«'*#**** 
60 PROCEDURE "T" 

70 IF A$*"!" DO 
80 •' PRINT"B" 

90 ELSE DO 

100 7 KG-ldO^-POStR*,"*",^) 

110 7 WHILE J0>0 DO 

120 7 <D"VRR$"î J0*LPOS<R$» "$"»K0> 

130 ' VEND 

140 7 K0* 1 s J0*LPOS < A$ , " # " , K0 ) 

150 'WHILE J0>0 DO 

160 7 <D"URR#"5 J0=LPOS<R$> "#",K0> 

170 7 VEND 
180 7 PRINT R$ 

198 ENDIF 
200 RETURN 

210 REM %**%**%**%%*%**%**%%*h<**%***%* 
220 PROCEDURE "H" 

230 IF R$*" ! " DO 
240 7 PRINT "BQ".* 

250 ELSE DO 

260 ' K0*lsJ0*LPQS<R$."*".K0> 

270 7 UH ILE J0>0 DO 

280 7 O ,, URR^":J0=LPOS(fl$,"$ ,, ,K0) 

290 7 UEND 

309 7 K0=1 î J0 s LPOS<fi$* "#"»K0) 

310 7 UH ILE J0>0 DO 

320 7 3 " URR# " s J0=LPO$ < R$ , " # " » KO ) 

330 7 UEND 
340 7 PRINT R$! 

350 ENDIF 
360 RETURN 

370 REM ******%*%%*%%*%***%>m<h<****%**% 
380 PROCEDURE "WR#" 

390 K1=K0+J0:V$*MID*<R$,K1-2,1) 

400 U0*R3C<V$) 

410 IF<U0<65>+<U0>90> DO 
420 7 ER-10ïR$=" " 

430 ELSE DO 

440 7 POKE 24434. U0JQOSUB30 
458 7 fl$=IN$<fi$ » Kl-3» Kl ? STR$<R0) ) 

460 ENDIF 
470 RETURN 

480 REM ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦H** 
490 PROCEDURE "URR4" 

500 L0*- 1 s K 1 *K0+ J0 » 6$*M I D$ ( R$ » K 1 -2 > 1 > 
510 RCPERT 

520 7 L0*L0+lsID-<LEFT#<V$<L0>,l>*6f> 
530 UNTIL<IDO0>+<L0>*U1> 

540 IF ID*0 DO 
550 7 R#*" "!ER 3 9 
560 ELSE DO 

570 7 I $»U$ < L0 > s L2-LEN < I $ ) -2 

580 7 R$*IN$<R*,Kl-3,Kl,RI6HT$a$,L2>> 

590 7 K0U0+L2-1 

600 ENDIF 

610 RETURN 

620 REM 

630 PROCEDURE "fl" 

640 INPUT"?"lEf 
650 IF R$*" "DO 


660 7 B*=E* 

670 ELSIF LEN<fl$>*2 DO 

690 7 IF LPOS<R$,"*",1>>0 DO 
700 7 IF V1>=0 DO 
710 7 L0--1 

720 7 REPERT 

730 7 L0=L0+lilD»<LEFT$<ü*<L0),2)-A$> 

748 7 UNTIL<ID*-1)+<L0*V1> 

750 7 IF ID=-1 DO 

760 7 U*<L0)=fl*+E* 

770 7 ELSE DO 

780 7 U1 *V 1 + 1 s V$ < U 1 ) =fl$+E$ 

798 7 ENDIF 

880 7 ELSE DO 
810 7 U1=V1+1îU*<U1>=A$+E$ 

820 7 ENDIF 

830 7 ELSIF LPQS<fi$> "#"» 1>>0 DO 
840 7 U$=LEFT$<R$,1>:U0=RSC<U$) 

858 7 IF<V0<65)+<V0>90> DO 

860 7 ER- 10 

870 7 ELSE DO 

880 7 DEF FNF < X > =EUAL ( B$ ) s R0=FNF < X ) 

890 7 POKE 24420. U0*6OSUB20 

908 7 ENDIF 

910 7 ELSE ER=10 

920 7 ENDIF 

930 ELSE ER=10 

948 ENDIF 

950 RETURN 

960 REM #*+*'+#*****#*+*'** : *+*+******** i t‘ 

978 PROCEDURE "M" 

980 MF=0 ! M 1 =0 ï D$ s # " ESP " < fi$ > 

998 L0S0Î ID-0 
1080 REPERT 
1010 7 L8-L0+1 

1020 7 IF MID$(D$»L0> l) 5 '" ! "DO 
1038 7 F$=MID$(D$»M1+1, L0-M1-1) 

1040 7 MF=-<F$=8S> 

1050 7 IF MF*1 DO:L0*LEN<D$):ID=1 

1060 7 ELSE DG:M1=L0 

1070 7 ENDIF 

1080 7 ENDIF 

1090 U'NTIL L0>=LLN<D$) 

1108 IF ID=0 DOSL0=L0+1 

1110 7 F$*MID$(D$,M1+1,L0-M1-1> 

1120 7 MF*-CF$=B$> 

1130 ENDIF 
1140 RETURN 
1150 REM 

1160 PROCEDURE "X" 

1170 DEF FNF<X>=EURL<R$>îKF=-FNF<X> 

1180 RETURN 

1190 REM m***************************** 

1200 PROCEDURE "C" 

1210 K0=LPQS < R$ » " = " , 2 ) 

1220 IF K0=0 DO 
1230 7 ER* 10 
1240 ELSE DO 

1250 7 U*=LEFT$<fl*>K0>:U0=RSC<V*> 

1260 7 IF<U0<65?+<U0>90) DO 
1270 7 ER» 10 

1280 7 ELSE DO 

1290 7 U$»IN$<Rf ,0,K0+2> " ") 

1300 7 DEF FNF<X)=EURUU$> 

1310 7 A0*FNF<X) 

1320 7 POKE 24420, U0ÎGOSIJB20 

1330 7 ENDIF 
1340 ENDIF 
1350 RETURN 

1360 REM H 1 *****##*#*#****#***!**#*##*#** 

1378 PROCEDURE "J" 

1380 IF LT=-1 D0iER=5 

1390 ELSE DO 

1408 7 J0»-1 

1410 7 REPERT 

1420 7 J0»J0+1 

1430 7 UNTIL<A$=L$<J0>)+<J0=LT> 

1440 7 IF R*OL*<J0> D0:ER*5 

1450 7 ELSE DO:I0=L<J0>-1 

1460 7 ENDIF 

1470 ENDIF 

1480 RETURN 

1490 REM 

1500 PROCEDURE "U" 

1510 IF SP*20 D0:ER*6 

1520 ELSE DO 

1530 7 ST<SP)=I0JSP=SP+1 

1540 7 IF LT=-1 D0:ER»5 

1550 7 ELSE DO 

1560 7 J0*-1 

1570 7 REPERT 

1580 7 J0»J0+1 

1598 7 UNTIL<R$=L$<J0>H<J0=LT> 

1600 7 IF fl$< >L$<J0) D0:ER*5 

1610 7 ELSE DO* I0*L<J0>-1 

1628 7 ENDIF 

1638 7 ENDIF 

1640 ENDIF 

1658 RETURN 

1660 REM ****H«****M<***H<*>M<p+***+:****++* 

1670 PROCEDURE "E" 

1680 IF SP>8 DO 

1690 7 SP=SP-l:I0»ST<SP> 

1700 ELSE DO 
1710 7 ER*7 
1720 ENDIF 
1738 RETURN 
1740 REM 

1758 PROCEDURE "V" 

1760 K0*LPOS<fll, "}",!) 

1770 IF K0*0 DO 
1760 7 70*01X0*0 
1790 ELSE DO 

1800 7 DEF FNF(X>*EURL(MID$(R$, 1.K0-1)) 




1810 ' X0SFNFOO 

tlll 

1840 END IF 

1850 X0=flBS<X0):V0=fi8S<V0) 

868 IFO»>39,*<V9>2«00?ER-8 

18,0 ELSt CIJR30R X0,Vfl 
1900 REM 

1910 PROCEDURE "D" 

1920 K0=LPQS<A$, 1) 

1930 IF K0=0 DO 
1940 ' V0=0: X0=0 
1950 ELSE DO 

1970 : 

\lll : 5™f-EVa(IN»<fl,,0,K 0t l,»..» 

2000 ENDIF 

20 1 0 X0=ABS <X0): V0=RBS < V0 ) 

2020 IF(X0>79)+(V0>49)DOîER=8 

2030 ELSE MOUE X0,V0 

2040 ENDIF 

2050 RETURN 

2060 REM 

2070 PROCEDURE "P" 

2080 K0=LPOS(A$, i> 

2090 IF K8=0 DO 
2100 ' ER=8 
2110 ELSE DO 

2120 ' L0=UAL<MID$(A$, 1»K0-1>) 

2130 ' K1-LFOS<R»,-î»,K0+i> 

2140 ' IF K1=0 DO 
2150 ' ER=8 
2160 ' ELSE DO 

H® - P! F ,f^ X)=E ' JaL<l «t>$<B$,K 0 -H,Kl-K 0 +l)) 

*-loV X0*FNF<X> 

2190 ' DEF FNF(X)=EUALGN$<A$,0,K0+K1+1, "")) 
2200 ' V0=FNF<X) 

2210 ' x 0 =abs<x 8 ):v 0 =abs<;v 0) 

2220 ' IF<X0>79)+<V0>49)DO:ER=8 

2230 ' ELSE PLOT L0,X0,V0 

224© •- ENDIF 

2250 ' ENDIF 

2260 ENDIF 

2270 RETIJRN 

^288 REM a*******#**#*****^.,^^^^^.^ 

2290 FUNCTION "ESP B <M> 

2300 IF LEN<D$?>0 DO 
2310 ' J0=LPOStD$, " M) 

2320 ' WHILE J0>0 DO 

2330 ' D$=IN$(D$,J0-1,J0+1, » 

2340 ' J0=LPQS<D$, " ", i) 

2350 ' WEND 
2360 ENDIF 
2378 ,RESULT*D$ 

<;Oo0 REM ******************* ; ^.j <) ) t .^j| (> j (J j () £ ^ 

2390 PROCEDURE "PP" 

2480 WHIL£<Pi<PP)s"")*(pp>0^ l Q 
2410 ' ppapp-i 
2420 WEND 

2430 IF<PP=0)*<p$<0) a -*«) DO 
2440 PP=-1 
2450 ENDIF 
2460 RETURN 

24/0 REM *****************# :1titc;1 <;| t+ . f+:t(:1< . lllj( 

2480 CLRïDIM Pf (255), E$(10)î MODE 1 
So? E IM L<20 >’L$<20),ST<20>,U$<20> 

2500 PP=- 1 : H$» "01 23456789 " : TEMPO 7 
2510 U$="JTMREUCUXHQDP" 

ÎS® d * li,ne trop 9|A and" 

z5%^0 E$<2)= Li9ne sans ï" 


ELSE Pf <N0J«" " 

IF PP=N0 DO 
8 "PP" 

ENDIF 

ENDIF 

ELSE C$=LEFT*(A$,1> 

CASE C$ OF 

WHEN " H " DO ï 8 " HELP " 

WHEN " A " Dû î S 11 AUTO " 
WHEN"R"DOsî"RUN" 

WHEN " N " DQ ï 3 " NEW " 
WHEN"E ,, D0î3"EXIT" 

WHEN " S " DO 5 Q " SAUE " 

WHEN"G"DO:0"QET" 

WHEN"L"DOï0"LIST" 

WHEN "D" DO: 8" DELETE" 

WHEN "P " DO : 3 " PR I NTER " 

WHEN " M " DQ : S " RENUM " 

WHEN" ! "DûîPRIHT ,, E ,, 

OTHERWISE 

FORX0» 1 TO 1 0 : MUS I C "*“B0 " : NEXT 

FWDPûCîP 


IF NU>255 DO:F0=0 
ELSIF P$ ( NU X > " " DO : F0=0 
ENDIF 
IF F0=0 DO 
INPUT ">";A$ 

ELSE DO 
NU$*3TR$<NU> 

PRINT">";NU$; : INPUT " '*?ûs 
IF A$="2" DO 
F0=0 
ELSE DO 

_ fl*»NU*+" "+A$ïNU®NU+IC 
tNDIF 
ENDIF 
REPEAT 

I0=I0+1:;*=NID$<h$,I0,1> 

UNTIl. i.P0mH$, C$,1)«0 
10“ 10-1 
IF I0>0 DO 

N0=URL<LEFT$<Af , 10) i 
A*=IN*<A$, 0,10+1,"") 

IF A$O'"'D0 
ÎF N0<256 DO 

WHILE LEFT$<A$, 1)=" » çn 

A$»IN*<R$,0,2,"»> 

WEND 

ÏE LPOS<Af> î>>0 DO 
P$ <N0 > ; pp=pp syp N0 

ELSE ER=2 
ENDIF 
ELSE ER=1 
ENDIF 


3200 ' ENDCASE 
3210 ' ENDIF 
3220 ' UNTIL ERO0 

5*38 ' PRIHTîPRINT E»<ER>i” li,n, ",10 
■i24 0 PR INT P»(IED:PRINT 

3250 UNTIL 0 
3270 PROCEDURE "PRINTER" 

3280 INPUT" Imprimante <0»N)?’’îR* 

3290 FR=(R$="0") 

3300 RETURN 
3310 REM 

3320 PROCEDURE "NEW" 

3330 INPUT" U rainent <q,n)?";r$ 

3350 RETURn"°" D0!NULL P»<a>-PP^1.»IF 
3360 REM 

3370 PROCEDURE "DELETE" 

3380 INPUT "De la lisne ";N0 
3390 INPUT" a la lisne ";M0 

^ =lNT<fl BS<N0))ïM0=INT<A8S(M0)) 
o410 IF N0>M0 DOîEXC N0,M0:ENDIF 
3420 M0*M0 INF 255 
3430 FOR I0*N0 TO M0:P$<I0)="":NEXT 
3440 PP=255:3"PP" 

3450 RETURN 

3460 REM *^**^*#*H.**H<^* ! »<**» t c^H, +!l<++ * + ** 
3470 PROCEDURE "LIST" 

3430 INPUT "De la lisne "»N0 
3490 INPUT" a ia lisne ";M0 
3500 N0= I NT < ABS < N0 ) > : M0= I NT < ABS < M0 ) ) 

0^10 IF N0>M0 DOîEXC N0,M0 ï ENDIF 

o520 M0=M0 INF 255 INF PP 

3530 IF PP>0 DO 

3540 ' FOR I0=N0 TO M0 

3550 IF P$(I0X>" " DO 

3560 ' PRINT I0î" "+P$<I0> 

3570 ' IF PR=-l DO 

3580' PRINT/P 10} " "+P$<I0) 

3590 ' ENDIF 
3600 ' ENDIF 
3610 ' NEXT 10: PRINT 
3620 ENDIF 
3638 RETURN 

3640 REM ♦♦♦♦♦w.*****#*******»,,,^#*^ 
3650 PROCEDURE "EXIT" 

3660 PROCEDURE ”Q" 

3670 END 
3680 REM 

3690 PROCEDURE "HELP" 


s "Non de fichier trop Ions" 

3700 PRINT"SBBLES COMMANDES SONT' 

'"Instruction non valide" 

o/10 PRINT" 

H=HEL P» 

'."Etiquette inconnue" 

3720 PRINT" 

R=RUN" 

s "Pile de retour pleine" 

3730 PRINT" 

N=NEW" 

“"Ualevr trop sranoe" 

3740 PRINT" 

E=EXIT" 

Uariable non def inie" 

3750 PRINT" 

S=SAUE" 

>="Erreur de syntaxe" 

3760 PRINT" 

8=QET" 

'ISfllnterpreteur PILOT" 

3770 PRINT" 

D=DELETE" 

SI2E;" OCTETS": PRINT 

3780 PRINT" 

A=AUTO" 


3790 PRINT" 

P*PR INTER" 

AT 

3800 PRINT" 

L=LIST" 

a 0:ER=0 

3810 PRINT" 

, M=RENUM" 


3830 RETURN 
w840 REM 

3850 PROCEDURE "SAUE" 

3866 INPUT" TITRE: "JN$ 

3870 IF<LEN<N$)<1 1 >+(PP>~i >D0 
3880 ' N$=N$+".PLT":WOPEN N$ 
3890' PRINT/T PP 
3900 ' FOR 10=0 TO PP 
3910 ' PRINT/T P$<10> 

3920 •' NEXT 10 
3930 ' CLOSE 
3940 ELSE ER«3 
3970 REM 

3980 PROCEDURE "6ET" 

3990 INPUT "TITRE: ",*N$ 

4000 IF <LEN(N$)< 1 1 )+<Nf< >D0 

4010 ' N#=Nf+".PLT":ROPEN N$ 

4020 ELSE ROPEN 
4030 ENDIF 

4040 INPUT/T PP:NIJLL P$<&> 

4050 FOR 10=8 TO PP 
4060 v INPÜT/T Pf(I0) 

4070 NEXT 10 
4080 CLOSE 
4090 RETURN 

4100 REM *******>11**11.*** 

4110 PROCEDURE "RENUM" 

4120 INPUT"Preniere Ïisne:"; NU 
4130 INPUT" Incrément : ";P 0 
4140 Ni>lNT<ABSŒU>>!P0=INT<ABS<P0>> 
4150 IF<NU>255)+<P0=0)DO 
4160 ' ER= 10: RETURN 


4178 ENDIF 

4180 J0=0:DIM Q$<255) 

4190 FOR 10=0 TO 255 

4200 ' IF P$<10><>" "DO 

4210 ' O$<J0)*P$a0>iJ0sj0+i 

4220 ' ENDIF 

4230 NEXT 10 

4240 IF .J0>0 DO 

4250 ' NULL P$<8):K0=Mü:î0=0 

4260 ' REPEAT 

1270 ' P*0<e>= Q$<I0XK0=K0+P0: 10=10^1 

1280 ' UNTIL <I0=J0X<K0>255> 

1290 ENDIF 

■300 CLR Q$(Q) : PP=255: 8"PP" 

■310 RETURN 
320 REM 

330 PROCEDURE "AUTO" 

35® {F P NU2sTD0 re ^'iNU î NU=INT<BBS;NU» 

360 ' INPUT "et incrément :”;IC 

370 ' IC=INT<ABS(IC)):F0=1 

380 ELSE ER=1:F0=0 

390 ENDIF 

400 RETURN 

410 REM ♦****++++*+*+***^*+ + ^^ ++++!f * i4 , 

120 PROCEDURE "RUN" 

130 IF PP=-1 DO: RETURN: ENDIF 
140 J0*0 

•50 FOR 10=0 TO PP 
60 ' A$=P$<I0) 

70 ' ÎF R $<>" "DO 
80 ' C»«LEFTf<Rf,2) 

90 ' IF C $="*: "DO 

08 ' J0=.J8+1:L<J0)=I0 

10 ' L$(J0)=IN$(A$»0,3> 

20 ' ENDIF 
33 ' ENDIF 
40 NEXT 10 

?® ^=J0:i0 = -iî3p =e!yi= > lîNULL u$(0: , 

?0 REPEAT 
r 0 ' ER=9 

Î0 ' 13=10+1 : A$=P$< 10> : C*=LEFT$<R$, 1) 

»0 ' M$=MIDf<Af,2,l> 

10 ' TE=<<M$= , 'V ,, ) + (MF=0>'-np/VMf = r»H'')*<MF=n 
> OR < A$= " " > OR < Ct* " * " > OR < C$= " R " 

0 ' IF TE=0 DO 
:0 ' K8=LP0S<A$, 

0 ' A$=IN$<A$,0,K0+1, 

0 " IF LPOSCU$,Ci> 1)=0 DO 

0 ' ER=4 

0 ' ELSE DO 

3 ; POKE 24444,ASC<C$): GOSUB40 

3 ENDIF 
3 ' ENDIF 

î UNTIL<ER>0)+(I0=pp> 

3 RETURN 

) REM **+'»«**************^*^ %3 , <i „ j<(JJtJJ( 



Cet article est le dernier de l'analyse du MONITOR les « trucs » oui agissent sur le monitor, tous 

du MZ 80 -B. Les fonctions qui restent à étudier parus dans le SHARPENTIER. Vous aurez ainsi la 

sont celles relatives à l'horloge et à l'émission de possibilité de comprendre le fonctionnement. Si 

sons. Nous terminerons cette étude en rappelant vous en trouvez d'autres écrivez-nous ! 



Nous commençons donc à l'adresse ODFB. 


ODFB 

TEMPO 

correspond à l'ordre BASIC TEMPO. Charge TEMPW (001 D) avec B - la valeur du tempo BASIC. 

0E06 

TIMST 

mise à l'heure de l'horloge. 

AMPM (000F) est chargé avec 1 si t> 12h, sinon avec 0. 

INICI (0016-0017) contient l'heure initiale exprimée en secondes. 

0E51 

TIMRD 

blocage du compteur de temps, lecture puis ajout du temps initial (INICI). 

OEBE 

BELL 

émission d'un BIP. Nombre de périodes 0030H, durée de la période 0060H (en cycles machine). 


appelle : 

SOUT 

OECC 

SOUT 

émission d'un son caractérisé par les valeurs de BC (nombre de périodes = durée) 
et de HL (durée de la période = fréquence). 

Le haut-parleur est alimenté (en continu) par OUT (E3H), 05 puis non alimenté par OUT (E3H), 04. 


appelle : 

S0UT2 

0EE9 

MELDY 

émission de notes codées BASIC. (DE) est l'adresse du début de la chaîne à jouer, 
la fin est repérée par * ou CR (13H). 


appelle : 

ONPU RYTHM 

0F34 

ONPU 

recherche des caractéristiques de la note à émettre (durée et hauteur) 

en fonction de la lettre code, de l'octave, de éventuel et du tempo du morceau. 

0F94 

MTBL 

table des hauteurs de notes 

OFAC 

M TBL 

table des hauteurs des notes affectées de 

OFDD 

RYTHM 

émission des notes décodées. (BC) : durée, (HL) : période. 


appelle : 

SOUT 



RAPPEL DES TRUCS MONITOR 


POKE $0947, $05 l'écran ne s'efface plus par CONSOLE Snn,nn 
POKE $0897, $00 SCROLL de l'écran ligne par ligne 
POKE $06FC,$00 motorisation du curseur sans appui sur SHIFT 
POKE $06DD,A A<40H : le curseur clignote plus lentement 
A > 40H : le curseur clignote plus rapidement 
POKE $0725, A A<40H : répétition du déplacement du curseur plus lente 

A>40H : répétition du déplacement du curseur plus rapide 
POKE $097C,$00 plus de contrôle anti-rebond du clavier, il y a répétition automatique des caractères. 

Mais ATTENTION à la reprise en main ! Il faut remettre $A6 en $097C sinon gare au bégaiement ! 
POKE $001 5, $00 émission de BIP à chaque touche enfoncée 
POKE $0EC4,5O et POKE $0EC1,2 modification du BIP (plus discret...) 

POKE $0EC4,A modifie la hauteur du son émis par USR ($0EBE). 

A placer dans une boucle BASIC (FOR A = 1 TO 50 par exemple) 
pour émettre des sons étranges. 

POKE $0023, $2E et POKE $0024, $35 transforme le 00 du pavé numérique en .5 (utile pour entrer les notes par exemple 
USR($0517) attente de 2 secondes 

USR($0500) attente de 4 secondes. 

Le délai peut être modifié en agissant sur les octets $0502 et $0503 (valeurs initiales 2B et OF) 


Nous terminerons le rappel de ces trucs en redonnant les quelques 
octets permettant d'afficher les flèches curseurs dans les chaînes 
(voir SHARPENTIER numéro 5). 


0779 

C3 90 13 

JP 1390H 

13BF 

OD 


1390 

FE 07 

CP 07 

1392 

30 07 

JR NC,07H 

1394 

CB5B 

BIT 3, B 

1396 

28 03 

JR Z, 03 

1398 

C3 54 07 

JP 0754H 

1401 

CD 6E OA 

CALL 0A6EH 

1404 

C3 62 07 

JP 0762H 


Ce programme est écrit pour le BASIC -DISK, et occupe la place du 
titre. Pour le BASIC SP-55 1 0 il suffit de l'implanter à partir de $ 1 350. 
De nombreuses autres modifications du monitor vous permettront 
de « personnaliser » votre MZ80B. En particulier il est facile de modi- 
fier la table des codes des touches de façon à avoir un clavier 
AZERTY. De même en modifiant des codes des hauteurs des notes, 
vous pouvez avoir un MZ jouant abominablement faux... 

Jean MILLET 

(NDLR) Dans le numéro 1 5, un superbe tableur de Jean MILLET, 
les autres, B'istes s'endormiraient-ils sur leur clavier ? 


LA LOGITHEQUE 

La logithèque est constituée en 
grande partie de logiciels conçus 
réalisés par les SHARPENTIERS 
et transmis au Club. Les modali- 
tés d'accès à celle-ci répondent 
à deux impératifs : 

• Assurer une légitime contre- 
partie aux concepteurs de pro- 
grammes. 

• En faire bénéficier tous les 
Sharpentiers, mêmes débutants 
en programmation. 

Dans cet esprit, nous avons créé 
la procédure suivante : 

1 . Vous nous faites parvenir un ou plusieurs 
programmes dont vous êtes l'auteur, nous vous 
retournons, sous 20 jours maximum un accusé 
de réception accompagné d'un nombre de 
points équivalent à la valeur de ce(s) pro- 
gramme(s), de (1 à 5 par programme), vous 
pourrez ensuite nous demander, en une seule 
fois, autant de programmes de la logithèque 
que de points acquis. Vos programmes doivent 
nous parvenir sur cassette, accompagnés 
d'une notice aussi complète que possible. 

2. Vous désirez recevoir des programmes mais 
n'avez pas de points à votre crédit. Faites-nous 
parvenir, dans ce cas, la somme de 1 5 F par 
programme demandé, ainsi qu'une cassette 
vierge, nous vous retournerons vos program- 
mes sous 20 jours maximum. OFFRE LIMITEE 
A 3 PROGRAMMES PAR ENVOI. 


L | 
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AL IEN 
ALLIGATOR 
ANDROMEDA GAME 

a!qme qides 

BLOK KUSUSHI 

BOMBARDIER 

BOWLING 

CATERPILAR WAR 

CARRE MAGIQUE 

CRASH 

DIGGER 84 

DONJON DRAGON 

GRENOUILLE 

GUILLAUME TELL 

HOCKENNEIM 

ISOLA 

LA VALLEE 

LADY BUG 

MACHINE A SOUS 

MISSILE COMMAND 

MORP I ON 

MONEY MAKER 

MUR 

NEIGE 

PAC MAN 

PENDU 

PENTOMINO 

PUISSANCE 4 

QUADRAX 

RED ALERT 

RUN OUT 

SCRAMBLER 

SIMUL-VQL 

SLALOMM 

SPACE GUERILLA 
SPACE PANIC 
SPIDER INVASION 
SUPERWURM 
SUPER DEFENDER 
TOURS DE HANOI 
YATZEE 
Y AMM 


DEFENDEZ VOTRE PLANETE LE PLUS LONGTEMPS PDSSIBLE 
PROGRAMME PARU DANS BULLETIN Nd.9 

ENCORE UNE VERSION EXPLOSIVE; GRAPHIQUE ET SONORE DE SPACE INVADER. 

H SW» DE PU,EIE5 ' 

UN MUR DE BRIQUE JAPONAIS TRES DIFFICILE 

UNE CHENILLE DANS UN LABIRVNTHE PLEIN D'EMBUCHES 
UN CASSE-TETE LOGIQUE PAS EVIDENT DU TOUT A RESOUDRE 

UN CIRCUIT ET 2 VOITURES QUI ROULENT EH SENS INVERSE! PRUDENCE; SANG FROID ET REFLEXES. 

UNE MINE ET DE VILAINES BESTIOLES QUI EN VEULENT A VOTRE OXYGENE. . .GRAPHIQUE ET SONORE 
UN SUPERBE JEU D'AVENTURES GRAPHIQUE; COLORE ET PLEIN D’HUMOUR? 

IDEAL POUR ENFANTS DE 5 A 10 ANS; TRES GRAPHIQUE ET COLORE. 

UN ARCî UNE POMME... VOUS ETES GUILLAUME ET VOUS NE VOUS ENNUIREZ PAS. 

DE PLUS EN PLUS VITE EN EVITANT LES ARBRES ET LES OBSTACLES. 

PROGRAMME PARU DANS BULLETIN No. 9 
VOIR BULLETIN Na. 13 

UN MELANGE PASSIONNANT DE PAÇ-MAN ET DE LABIRVNTHE PLEIN DE PORTES ET D'OBSTACLES. 

OU COMMENT EXPLOITER; EN BASIC; LES POSSIBILITES GRAPHIQUES DU MZ 

ils MVÉïMmflR* vdus ™- 
ÜS. WitmiiSBHS #,EC Œ . 6ENIAL FR0G '“ E tmiim 

VOIR BULLETIN No. 13 

UN CLASSIQUE TRES RAPIDE QUI VOUS DEMANDERA BEAUCOUP DE SANG-FROID 
PAS FACILE CE PENDU... HUMOUR ET TRES BONS GRAPHISMES POUR VOUS AIDER. 

UN DES MEILLEURS JEUX DÉ PATIENCE SUR HZ. 

UN JEUTRES CONNU. MZ SERT D'ARBITRE ENTRE 2 JOUEURS DU JOUE CONTRE VOUS. 

UNE VARIANTE DE PUISSANCE 4 A NIVEAUX VARIABLES OU MZ EST TRES FORT. 

UN SPACE INVADERS PLEIN DE GRAPHISMES ET DE SONS. 

TENIR LE PLUS LONGTEMPS EN EVITANT LES NOMBREUSES BESTIOLES QUI VOUS TOMBENT SUR LA TETE 
ABATTRE LIN MAXIMUM DE POINTS STRATEGIQUES AU SOL ET EVITER LES FUSEES ENNEMIES 
UNE VERSION BASIC QUE VOUS POURREZ AMELIORER AU GRE DE VOTRE FANTAISIE. 

DES SKIS; DE LA NEIGE; DES PORTES; ET BEAUCOUP D'ADRESSE POUR PASSER LA LIGNE D’ARRIVEE. 
UNE VERSION AMELIOREE DU SPACE INVADER EN L.M. 

UN COMBAT DANS LES ETAGES CONTRE DES ARAIGNEES. VOTRE SEULE ARME.. UN MARTEAU.. PASSIONNANT 
UN SPACE INVADER DE LUXE TRES SONORE. 

UN SUPER JEU DE CHENILLE EN L.M. A DIFFICULTE CROISSANTE 

DES AVIONS; DES LASERS; DES MECHANTS ENNEMIS; DE L’ACTION! ET VOUS AUX COMMANDES. 

UN MODELE DANS LES JEUX DE REFLEXION; UN BON APPRENTISSAGE A LA LOGIQUE. 

UNE VARIANTE GRAPHIQUE DU VAMM 

LE CELEBRE JEU DE DES BIEN ADAPTE AUX POSSIBILITES DU HZ 700 


CL.M] 
C B AS 3 

M] 

CL.M] 

EÜ813 

CL. M3 
C BAS 3 
CL. M3 

EBaSI 

C B AS 3 

Et:HÎ 

C B AS 3 
[BAS! 

EbAs] 

CL . M3 
C B AS 3 

iîm 

C B AS 3 
C K . B 3 
C B AS 3 
C B AS 3 
CL. M3 
CL. M3 
CL . M3 
C B AS 3 
C B AS 3 
CL. M3 
CL.M3 
CL.M3 
CL. M3 
CL . M3 
C B AS 3 
C B AS 3 
[BAS! 
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Éi,UML AI S E ^APONhI 5 QUI VOUS PERMET DE GERER LA MEMOIRE DE VOTRE MZ COMME UNE DISQUETTE C L . M 3 

DESASSEMBLEUR VOIR "L.M. SUR MZ" DU SHARPENTIER No. 14 CL.M3 

N TR0 BASIC DISQUETTE CENTRONICS. (PRECISER 280K OU 320K; JOINDRE DISQUETTE FORMATTEE ET 70F.) CL . M3 

HU BASIC BASIC JAPONAIS TRES PUISSANT DONT NOUS NE POSSEDONS PAS LA NOTICE C L . M 3 

gOL I GONE UTILITAIRE PERMETTANT LA CREATION GRAPHIQUE SUR LA TABLE TRAÇANTE DU HZ C BAS 3 

■ M0N I TU^ON TEUR RELOGEABLE I RES PRATIQUE POUR QUI VEUT PROGRAMMER EN L.M. C L . h 3 

TORTUE^GRAPHI QUE VOIr'buLLETIN^No^H^ 1 " 1 ELECTR ° NIQUE ^ P0UR ° E APPLICftTI0NS ' 

TRAITEXT ACCENTSTRAITEMENTDETEXTESPARUDANSLEBULLETINNo.il C BAS 3 


*Ë”&*«*SB* ce: IM E> CE 1 O IM El! M CE IM T ' 


B O J EE IM 


X IF" X Q 4 X ES O 


CALCUL 

CALC-ADD 

CIRCUITS 

CONJUGAISON 

COMPARAISONS 

COMBIEN 

COMPTAGE 

CP-CALC 

DESSIN 

DOMINO 

DRAPEAUX 

ENGLISH VERBS 

FORMES 

FRANCE 

FRANÇAIS 

LATIN 

MASTER M I ND 

MEMO-DUEL 

REPERAGE 


UN JEU AUTOUR DES 4 OPERATIONS. NIVEAU DE DIFFICULTE CHOISI PAR L’ELEVE. C BAS 3 
3 EXERCICES SUR L’ADDITION ET UN EXERCICE SUR L'ORDRE DES NOMBRES POUR CLASSES DE C.P. CK . B 3 
RESOLUTION DE CIRCUITS ELECTRIQUES EN COURANT CONTINU PAR THEOREME DE THEVENIN (ESPAGNOL) C B AS 3 
APPRENTISSAGE DE LA CONJUGAISON A TOUS LES TEMPS DES VERBES DES PREMIER ET DEUXIEME GR. C BAS 3 
POUR COMPARER PROGRESSIVEMENT DES NOMBRES ET DES SOMMES ENTRE EUX (C.P.) C B AS 3 
DIDACTICIEL DE NUMERATION A 4 NIVEAUX DE PRESENTATIONS DIFFERENTES (C.P.) C B AS 3 
POUR COMPTER LES NOMBRES ENTRE X ET 20. 1 PAR li 2 PAR 2 PUIS 3 PAR 3 (C.P.) C B AS 3 
B EXERCICES SUR LES NOMBRES; L’ADDITION; LE REPERAGE; LES EVALUATION; LES ECHANGES. (C.P) CK. B 3 
PROLONGEMENT DU DIDACTICIEL “REPERAGE" QUI AJOUTE LES NOTIONS DE FORMES ET COULEURS (C.P.)CBAS3 
POUR ADDITIONNER ET ABORDER LA SOUSTRACTION PAR LE COMPLEMENT DANS UNE ECRITURE ADDITIVE C BAS 3 
UN FICHIER DE 60 DRAPEAUX DONT IL FAUT RECONNAITRE LE PAYS D’ORIGINE. C BAS 3 
UNE AIDE TRES EFFICACE A LA CONJUGAISON DES VERBES ANGLAIS. C BAS 3 
EXCELLENT PROGRAMME GRAPHIQUE D'INITIATION AUX FORMES ET AUX COULEURS (MATERNELLE) C B AS 3 
DES GRAPHISMES TRES SOIGNES POUR L’APRENTISSAGE DE LA GEOGRAPHIE FRANÇAISE. C BAS 3 
DE NOMBREUX EXERCICES DESTINES AUX CLASSES DE C.M. C K . B 3 
TOUT SUR LES DECLINAISONS LATINES C B AS 3 
JEU TRES CONNU TRAITE DE MANIERE TRES PEDAGOGIQUE (C.E.) C B AS 3 
UN JEU EDUCATIF POUR LA RECONNAISSANCE DES FORMES; DES COULEURS OU DES CHIFFRES (C.E.) C BAS 3 
POUR REPERER INTERACTIVEMENT L’ENFANT SUR UN QUADRILLAGE DE 8»B NOEUDS. (C.P.) C BAS 3 
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AMORTISSEMENT 

DIETETIQUE 

FGÜT 

GESMAIL 

MORSE 

MUSIQUE SUISSE 
TENNIS TOP 
TEST SEXUALITE 
VOTE-FOR 


TOUS LES CALCULS RELATIFS AUX EMPRUNTS •' DUREE; MENSUALITES; l D’INTERET; ETC.. 

EXCELLENT PROGRAMME POUR CONNAITRE VOS BESOINS ALIMENTAIRES EN FONCTION DE VOS ACTIVITES 
UN FICHIER IDEAL POUR SUIVRE? AU JÜÜR Lt JOUR;- LA COUPE DE FRANCE DE FDÛT. 

UN GESTIONNAIRE DE FICHIERS D’ADRESSES TRES COMPLET 
UN PROGRAMME TRES COMPLET POUR L’ETUDE ET LA PRATIQUE DU MORSE. 

UNE DEMONSTRATION DE 3 MINUTES DES POSSIBILITES SONORES DU MZ 700 
POUR SUIVRE ET ANALYSER DANS SES MOINDRES DETAILS UNE PARTIE DE TENNIS. 

L’AMOUR EN GROUPE ...EN ETES-VOUS CAPABLE ? 10 QUESTIONS POUR LE SAVOIR. (POUR ADULTES) 
POUR LA GESTION DU DEPOUILLEMENT D’UN BUREAU DE VOTE. 


C B AS 3 
C B AS 3 
C K . B 3 
C B AS 3 
C BAS 3 

L BAS 3 
C B AS 3 







89, route d'Aulnay 93270 SEVRAN 



• POUR RECEVOIR 
1 NOTRE CATALOGUE 


ADRESSE 



JOINDRE UN TIMBRE A 2,20 F 



il SPECIAUX DU 




SHARP MZ 800 
+ INTERFACE DISQUETTES 
+ LECTEUR DISQUETTE 5 P 
+ MONITEUR VERT 
+ IMPRIMANTE 
+ RAM DISC 64 K 
+ EXTENSION GRAPHIQUE 

PROMOTION 
NOUS CONSULTER 



BULLETIN DESCRIPTION AU CLUB DES SHARPENTIERS 


□ Je m'inscris 

au CLUB DES SHARPENTIERS 


NOM ... 
ADRESSE , 


PRÉNOM 


Je bénéficie de tous les 
avantages du CLUB 

Je suis abonné pour 1 AN 
au BULLETIN du CLUB 


Je vous joins mon règlement 

□ FRANCE : 160 F 

□ ETRANGER : 200 F 

CHEQUE N° BANQUE 

DATE SIGNATURE 


CODE POSTAL / VILLE 

PAYS t 


PROFESSION ÂGE ... . 

MACHINE POSSÉDÉE DEPUIS 

ACHETÉE CHEZ 


UTILISATION PRINCIPALE DE VOTRE MACHINE 


Club des Sharpentiers 151/153, avenue Jean-Jaurès 93307 AUBERVILLIERS CEDEX Tél : 834.93.44 





